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ABSTRACT 


This  volume  defines  the  capability  of  the  Retrieval  and  Sort 
Processor  (RASP)  component  of  NIPS  360  FFS.  It  describes 
the  features,  functions,  restrictions,  language 

gualif ications,  and  expected  output  results  of  this 
component. 
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Section  1 


INTRODUCTION 


^ Ibis  volume  defines  the  capabilities  of  the  Retrieval 
and  Sort  Processor  (RASP) . RASP  retrieves  data  from  files 
based  on  English-like  retrieval  statements.  Retrievals  can 
be  batcned,  and  data  records  or  periodic  sets  within  data 
records  can  be  retrieved  on  information  in  the  fixed  and/or 
periodic  fields  and/or  periodic  sets. 


The  functions  of  RASP  include:^ 

a.  ^Editing  and  processing  of  retrieval  and  control 
statements  • 

o.  ^Compilation  of  retrieval  logic  to  produce  machine 
code  for  actual  retrieval  j -n 

c.  (-^Determining  if  an  Index  Data  Set  is  associated  with 

the  data  filej^  If  so,  RASP  invoices  index 
processing  to  analyze  the  retrieval  logic  and 
determine  if  index  usage  is  feasible. 

d.  Execution  of  generated  code  and  construction  of  a 

Qualifying  Data  Rile  (QDF)  containing  records 
qualified  by  the  retrieval  parameters  and  a 
Qualifying  Record  Table  (QRT)  containing  pointers 
to  records  in  this  QDP. 

RASP  will  operate  in  the  batch  partition  for  retrievals 
run  as  background  processing.^ 

It  is  possible  to  specify  which  periodic  sets  of  a 
record  are  to  be  written  on  the  QDF.  A search  of  a data 
file  can  be  limited  to  a specific  range  of  record  IDs. 
Multiple  sorts  may  be  specified  for  each  selection,  and 
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different  output  processing  and  formatting  specifications 
can  ofc  designated  for  each  SORT  and  SELECT  combination. 

It  either  Keyword  or  Secondary  Indexing  has  been 
specified  for  the  data  file,  RASP  will  analyze  the  retrieval 
logic  to  se*=>  if  index  usage  is  possible.  If  it  is,  the  data 
file  search  will  be  restricted  to  just  those  records  that 
could  possibly  gualify  instead  of  the  entire  data  file.  If 
Index  Processing  is  not  feasible,  RASP  will  search  the 
entire  file,  except  as  restricted  by  periodic  set  selection 
or  LIMIT  processing. 

The  Output  Processor  (OP)  and  the  Quick  Inquiry 
Processor  (QtllP)  components  provide  the  capability  to 
process  the  retrieved  answer  records  as  specified  by  the 
user.  Multiple-  and  single-file  retrievals  may  be 
accomplished  by  RASP.  However,  the  merged-file  retrieval 
and  output  capability  must  be  accomplished  by  following 
merged-file  retrieval  with  OP. 

The  RASP  component  offers  the  following  capabilities: 

a.  Batched  retrievals  against  a single  file 

b.  Merged  File  retrieval 

c.  Data  record  qualification  on 

f i xed/periodic/var iable  information 

d.  Error  diagnostic  printout 

e.  Multiple  IF  statements  within  each  retrieval 

t.  Insertion  of  literals  in  sort  keys 

g.  Answer  record  ordering 

h.  Multiple  answer  sets  from  the  same  retrieval,  each 
with  a unique  content  and  sort  sequence 

i.  Storage  of  retrievals  in  executable  form  for  later 
in  vocation 
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j.  Dynamic  analysis  of  retrieval  logic  to  determine  if 

index  processing  is  applicable.  If  so,  RASP  will 
restrict  the  detailed  logic  examination  to  the 
potential  qualifying  records  as  indicated  by  Index 
Processing . 

tc.  Selection  of  only  desired  periodic  sets  with  the 

fixed  set  rather  than  whole  qualifying  logical 
blocks 

l.  The  ability  to  use  user-written  subroutines  to 
qualify  data  through  use  of  the  Function  Operator 

m.  The  ability  to  pass  information  generated  by  the 
user-written  subroutines  to  OP  through  use  of 
system-provided  work  areas 

u.  The  ability  to  change  operands  at  execution  time 
through  use  of  the  skeleton  query  feature 

o.  The  ability  to  change  sort  field  designations  at 
execution  time  through  use  of  the  skeleton  query 
feature 


Retrieval  specifications  may  be  from  card  input  or  from 
specifications  stored  as  executable  modules  on  the  system  or 
a file  library. 

RASP  will  retrieve  from  data  files  organized 
sequentially  on  magnetic  tape  or  as  an  indexed  sequential 
data  set  resident  on  a Direct  Access  storage  Device  (DASD) . 
RASP  will  also  retrieve  data  from  a Virtual  Storage  Access 
Method  (VSAM)  file. 

1.1  Secondary  Indexing 

Secondary  Indexing  provides  the  user  the  capability  to 
index  a data  file  by  the  contents  of  a field  other  than  the 
Record  ID.  The  primary  purpose  of  the  capability  is  to 
provide  a faster  response  tine  for  qualifying  data  records 
during  retrieval.  The  principles  of  Secondary  Indexing  are 
described  in  Volume  I,  Introduction  to  File  Concepts. 
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The  decision  whether  file  indexing  information  is 
actually  usable  is  made  on  the  basis  of  user-supplied 
retrieval  logic  at  run  time.  RASP  determines  if  an  Index 
Data  Set  is  associated  with  the  data  file  based  on  the 
existence  of  Index  Descriptor  Records  in  the  data  file.  If 
there  are  none,  PASP  proceeds  with  its  regular  functions  of 
retrieving  records. 

If  indexes  have  been  specified  for  the  file,  RASP  will 
invoke  the  Index  Processing  function  to  determine  if 
indexing  can  he  utilized  or  whether  the  entire  data  file 
must  o9  examined.  Index  Processing  decides  this  based  on 
the  logical  criteria  for  data  selection  as  provided  by  the 
IF  statements.  The  format  of  this  statement  and  the 
criteria  used  in  determining  if  indexing  can  be  utilized  are 
described  in  section  2. 4. 2. 2. 

Index  Processing  returns  to  RASP  with  an  indication  of 
whether  the  entire  data  file  must  be  searched,  or  whether, 
based  on  the  user  logic,  only  certain  records  could  possibly 
qualify.  The  keys  of  those  records  are  passed  to  Retrieval 
Proper  and  used  to  access  the  records  and  examine  them  in 
detail.  By  restricting  the  search  to  just  those  records 
that  could  qualify,  PASP  can  save  the  time  otherwise 
reguired  to  access  and  examine  records  that  could  not 
possibly  qualify. 


1.2  Keyword  Indexing 

The  Keyword  capability  is  a text-retrieval  capability 
that  provides  a method  by  which  records  can  be  accessed  and 
retrieved  based  upon  the  known  contents  of  variable  length 
or  text  data  fields.  .Tust  as  secondary  indexing  allows 
access  of  only  those  records  known  to  contain  the  fixed 
length  fields  of  interest,  keyword  indexing  allows  retrieval 
of  records  based  on  the  presence  of  "keywords"  within  a 
field.  The  selection  of  records  based  on  these  "keywords" 
is  accomplished  via  a KEYWORD  statement  which  is  included  in 
the  query.  It  is  described  in  paragraph  2. 4. 2. 2.  The 
principles  of  keyword  indexing  are  described  ir  Volume  I, 
Introduction  to  File  Concepts. 
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Prior  to  employing  keyword  retrieval,  the  fields  to  be 
examined  must  have  been  defined  as  keyword  indexed  fields 
either  through  File  Structuring  or  the  Index  Specification 
utility  (see  Volume  II,  pile  Structuring,  Index  Definition 
for  Keyword  Pields  for  the  methods  of  defining  keyword 
indexed  fields) . Depending  on  when  the  indexes  were 
specified,  either  File  Maintenance  or  the  utility  will 
maintain  the  index  data  set  with  the  fields  and  their 
designated  keyword  values.  (See  Volume  I,  Introduction  to 
File  Concepts,  Keyword  Indexing  Capability  for  keyword 
qualification  requirements.)  The  user  determines  what 
values  in  the  field  qualify  as  keywords  and  from  this 
selection  bases  the  arguments  for  his  retrieval. 

Keyword  processing  is  initiated  by  including  a KEYWORD 
statement  in  the  query.  The  KEYWORD  statement  operates  on 
the  same  level  as  the  secondary  LIMIT  statement.  Only  one 
KEYWORD  statement  per  query  is  allowed.  Structurally  and 
functionally,  the  statement  is  similar  to  the  IF  statement. 
Qualif ication  is  at  the  record  level;  that  is,  subsets  are 
not  flagged  although  qualification  may  be  the  result 
interrogation  of  periodic  data. 

if  keyword  qualification  produces  a candidate  list  of 
qualifying  records  but  secondary  indexing  is  found 

i unfeasible  due  to  a low  percentage  of  fields  in  the  query 

being  indexed,  the  keyword  list  becomes  the  qualifying  list 
for  the  query.  Otherwise,  the  list  of  qualifying  records 
from  the  KEYWORD  statement  is  merged  with  the  list  of 
qualifying  records  from  the  secondary  indexed  fields  in  the 
IF  statement  to  produce  one  final  list  containing  only  those 
record  IDs  that  contain  both  qualifying  keyword  and 
secondary  indexed  fields.  This  list  is  passed  to  the 

retrieval  routine  to  indicate  what  records  are  to  be 
accessed  and  retrieved. 

If  either  source  produces  no  candidates,  the  retrieval 
is  terminated  with  an  advisory  message. 
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1.3  System  Flow 

RASP  has  three  sections:  the  Input  Processor  section, 
the  Retrieval  Proper  section,  and  the  Sort  section.  The 
flow  within  each  section  is  discussed  briefly  in  the 
following  paragraphs. 

The  Input  Processor  section  reads  the  input  stream.  It 
edits  each  statement  and  restructures  communication  records 
to r the  rest  of  the  component.  It  extracts  the  required 
information  from  the  File  Format  Table,  resolves  all  field 
name  addresses  and  references,  and  places  those  data  values 
converted  by  conversion  subroutines  in  the  communication 
records.  It  also  applies  an  algorithm  to  restructure  the 
conditional  logic  into  a bit  pattern  which  can  be  more 
readily  interrogated  using  programmed  logic.  Finally,  it 
converts  the  retrieval  statements  into  macros  which  are 
assemDled  and  link-edited  by  OS/360  to  produce  an  executable 
load  module.  The  resulting  executable  retrieval  is  stored 
on  the  Permanent  or  Temporary  Retrieval  Library. 

The  Retrieval  Proper  section  reads  the  communication 
records  and  calls  and  executes  the  code  stored  on  the 
Permanent  or  Temporary  Retrieval  Library.  It  checks  to  see 
if  the  retrieval,  the  required  subroutines,  and  the  first 
data  set  to  be  retrieved  against  are  available. 

If  either  of  the  first  two  are  not  available,  an 
advisory  message  is  issued,  and  the  job  is  terminated.  If 
the  data  set  is  not  available,  the  operator  is  notified,  and 
appropriate  operator  action  must  be  taken. 

During  initialization.  Retrieval  Proper  determines 
whether  an  Index  Data  Set  is  associated  with  ♦he  file.  If 
so,  it  calls  the  Index  Processing  function  which  will 
determine  if  indexing  information  can  be  utilized.  If  so, 
a list  of  potential  gualifiers,  called  candidates,  will  be 
presented  to  Retrieval  Proper  which  will  access  only  those 
records. 

After  all  initialization  and  Index  Processing  functions 
are  completed.  Retrieval  Proper  is  read  to  pass  the 
retrieval  logic  against  data  records.  Based  on  the  results 
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of  Index  Processing  (or  absence  thereof).  Retrieval  Proper 
operates  in  either  candidate-access  node  or  file-access 
mode.  Candidate-access  node  is  possible  only  when  an  Index 
Data  Set  is  associated  with  the  data  file,  when  the  user  has 
not  overridden  Index  Processing,  and  when  the  analysis  of 
user-supplied  retrieval  logic  indicates  that  Index 
Processing  is  feasible.  In  this  node,  RASP  accesses  only 
those  records  indicated  by  Index  Processing  as  candidates. 
At  all  other  tines,  RASP  operates  in  the  file-access  node, 
where  all  data  records  are  read  and  examined. 

After  all  initialization  has  been  completed,  the  data 
base  logical  records  are  read  in  one  at  a tine.  The  control 
field  is  tested  successively  against  the  criteria  for  th« 
primary  and  the  secondary  limits,  if  any.  RASP  skips  all 
data  records  up  to  the  next  possible  record  as  determined  by 
primary  or  secondary  limit  checking,  or  the  next  candidate. 
Then  RASP  checks  the  references  to  the  fixed  set,  if  any. 
If  it  fails,  all  subsequent  logical  records  up  to  the  next 
fixed  set  (i.e.,  the  whole  logical  block)  are  bypassed. 
This  "early- fail"  feature  permits  more  efficient  program 
operation.  The  same  early-fail  technique  is  also  applied 
for  each  change  in  periodic  set. 

The  flow  sequence  continues  until  every  affected  set  has 
been  processed  against  the  logic  of  all  retrievals.  If, 
after  evaluation,  the  current  logic  block  qualifies  against 
the  conditions  of  a least  one  retrieval,  the  logical  block 
is  written  on  the  QDF.  Entries  containing  sort  keys  and  QDE 
pointers  are  generated  as  required  by  the  SORT  and  SELECT 
statements  and  written  in  the  qrt  and  processing  resumes  as 
before. 

The  Sort  section  invokes  the  OS/360  Sort/nerge  program 
to  sort  the  records  in  the  QRT. 
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Section  2 


RASP  LANGUAGE  AND  OPERATORS 


2.1  RASP  Statement  Formatting 

The  language  for  this  component  is  free-formatted.  No 
constraint  is  specified  for  the  number  of  blanks  and/or 
commas  separating  words  in  the  input  stream.  Specifications 
punched  in  cards  may  begin  in  any  card  column  and  continue 
serially  through  column  71;  however,  words  and  literals  may 
not  be  split  between  cards.  If  desired,  data  elements  may 
be  punched  one  per  card,  or  a number  of  elements  may  be 
punched  in  a single  card.  Either  format,  or  any  mixture  of 
the  two  formats,  is  acceptable.  Each  language  statement 
must  be  terminated  by  a period  followed  by  a blank. 


2.2  RASP  Definitions 

A.  list  of  terms  and  definitions  commonly  associated  with 
RASP  follows: 

Action  Code  — A field  in  the  QRT  sort  key  used  to 
control  the  order  in  which  each  answer  entry  record  is 
presented  to  the  Output  Processors. 

Action  Statement  --  A direction  to  perform  a specific 
operation.  Action  statements  in  RASP  are  identified  by 
the  following  operators: 
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ADD 

DELETE 

EXECUTE 

SELECT 

SOPT 

Answer  Entry  Record  --  A record  in  the  QRT  containing 
QDF  pointers  to  the  beginning  of  the  fixed  set  and  to 
each  periodic  set  or  flagged  subset  selected  for  a 
qualifying  logical  block.  For  each  retrieval,  there 
will  be  at  least  one  answer  entry  record  for  each  sort 
and  select  conbination  within  the  range  of  a satisfied 
conditional  statement. 

Answer  Set  — A group  of  records  in  the  QRT  that  are  the 
result  of  one  retrieval  and  RIT  naie  conbination.  More 
than  one  answer  set  may  be  created  by  one  retrieval. 

Answer Set  ID  — The  major  control  field  in  a retrieval 

answer  set  and  consists  of  the  conbination  formed  by  the 
retrieval  number  and  RIT  name. 

Batch  --  A RASP  job  consisting  of  two  or  more  retrievals 
to  be  executed  against  the  same  data  base. 

Candi,d^te  --  A record  that  may  be  able  to  qualify  under 
the  retrieval  logic,  as  determined  by  Index  Processing. 
If  indexing  can  b®  utilized,  according  to  the  logic  of 
the  retrieval (s)  in  the  run,  the  retrieval  component 
will  operate  in  the  candidate-access  mode;  only 
candidate  records  falling  within  the  primary  and 
secondary  limit  ranges  will  be  accessed  and  examined  in 
detail.  Contrast  this  with  file- access  mode,  which  is 
used  when  indexing  cannot  be  utilized;  every  data  record 
will  be  accessed  and  examined. 

Conditional  Statement  — A statement,  which  taken  as  a 
whole,  may  be  true  or  false  according  to  the  rules  of 
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RASP.  Conditional  statements  are  identified  by  the 
following  operators: 

FUFTHER 

IF 

LIMIT 

KEYWORD 


Control Division  --  The  set  of  statements  which  is  used 

to  specify  the  environment  in  which  RASP  will  operate 
and  to  specify  action  to  be  taken  against  the  Retrieval 
Library.  The  statements  in  the  Control  Division  are 
identified  by  the  following  operators: 

FILE 

EXECUTE 

LIMIT 

DELETE 

FILE  is  required  and  must  be  the  first  statement  in  any 
RASP  run;  the  rest  are  optional.  The  FILE  and  LIMIT 
statements  may  also  appear  within  the  Retrieval 

Division . 

Declarative  statement.  - - The  statements  used  to  identify 
a retrieval  and  to  specify  the  files  to  be  searched  in 
single  and  merged  file  retrievals.  The  declarative 
statements  in  RASP  are  identified  by  the  following 
operators: 

TITLE 

FILE 

File Ind exing  — See  Secondary  Indexing  and  Keyword 

Indexing. 
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Function  Operator  --  This  is  a special  operator  used 
within  the  IF  or  FURTHER  portions  of  a conditional 
stateaent  which  permits  the  execution  of  a user-written 
subroutine  as  part  of  the  qualification  of  a data 
record.  The  subroutine  aust  always  indicate  a true  or 
false  condition  on  return  and  aay  provide  output  data  in 
specially  provided  work  areas. 

Function Operator Parameter  — This  is  a data  field, 

literal  value  or  work  area  which  is  designated  as  input 
(or  as  output  in  the  case  of  work  areas)  to  the  Function 
operator  subroutine.  The  nuaber  and  order  of  the 
parameters  is  a function  of  the  specific  Function 
operator  subroutine  requireaents  as  defined  by  the  user. 

Index  Processing  — The  functions  of  keyword  indexing 
and  secondary  indexing  that  utilizes  index  infornation. 
It  determines  whether  the  index  information  is  usable 
based  on  the  dynamics  of  the  retrieval  language  at  run 
time. 

Inc|QX  Field  — A field  which  has  been  designated  as  a 
file  index  by  the  Index  Specification  function. 

Indexing  ~ See  Secondary  Indexing  and  Keyword  Indexing. 

Keyword  Indexing  - An  optional  capability  whereby  a user 
can  index  a data  file  on  values  (keywords)  within  a text 
data  field.  Variable  fields,  variable  sets  and  fixed- 
length  alpha  fields  are  subject  to  this  form  of 
indexing.  The  capability  encompases  index 
specification,  index  maintenance,  and  index  processing. 
Refer  to  Volume  I,  Introduction  to  File  Concepts,  for 
discussion  and  definition  of  these  terms. 

Library  Action  — A direction  to  add,  delete,  or  replace 
one  or  more  retrievals  in  the  Permanent  Retrieval 
Library. 

Logical  Blqc)(  --  A group  of  records  in  either  the  input 
data  base  or  the  QDF,  consisting  of  a fixed  set  and  its 
associated  periodic  subsets. 
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Merged  File  Retrieval  --  A retrieval  which  involves  the 
search  and  selection  of  data  records  from  two  or  more 
tiles.  Sort  keys  are  affixed  to  the  QRT  entries  that 
describe  and  point  to  each  data  record  retrieved.  The 
QRT  records  are  sorted  together.  Merging  pointers  to 
the  data  have  the  sane  effect  as  if  the  data  had  been 
merged . 

Multifile  Retrieval  --  See  nerged-file  retrieval. 

Permanent  Retrieval  Library  — A disk-resident 

partitioned  data  set  containing  retrievals  in  executable 
torm.  This  library  may  also  contain  user  subroutines, 
tables,  and  RITs. 

Qualifying  Data  File (PDF)  — The  collection  of  data 

records  which  satisfy  the  conditions  of  one  or  nore 
retrievals  built  on  direct  access  storage  in  Record  ID 
sequence. 

yuajif y inqRecordTable  (QRT)  --  The  collection  of 
records  consisting  of  sort  key,  control  information,  and 
i pointers  to  each  set  or  flagged  subset  in  the  Qualifying 

Data  File  which  satisfy  the  conditions  of  a retrieval. 
There  will  be  at  least  one  record  for  each  sort  and 
select  pair  within  the  range  of  a satisfied  conditional 
statement  for  each  retrieval  in  a batch  of  retrievals. 
At  the  completion  of  the  retrievals,  the  QRT  will  be 
sorted  on  information  in  the  sort  key  so  that  it  can  be 
processed  sequentially  by  the  output  processors. 

0 Replaceable  Variable  --  This  term  applies  to  those 

operands  in  a conditional  clause  on  a sort  statement 
which  have  been  designated  as  replaceable  in  a skeleton 
query.  The  operands  so  designated  are  replaceable  when 
the  retrieval  is  executed.  If  not  replaced,  they 
default  to  the  originally-defined  operand  value. 

t 

Replacement Variable  — This  term  applies  to  those 

operand  values  which  are  defined  at  execution  time  to 
replace  those  operands  which  were  designated  in  the 
skeleton  query  as  replaceable  variables. 


12 


I 

' 


< 


RETRIEVAL  AND  SORT  PROCESSOR  (RASP)  , 


4 

I 


Retrieval  — The  set  of  declarative,  conditional,  and 
action~statements  furnished  by  a user  which  symbolically 
identifies  the  retrieval;  i.e.,  assigns  it  a retrieval 
ID  and  labels  the  answer  set;  defines  the  logical 
conditions  for  retrieval;  and  specifies  the  selection 
and  ordering  of  the  data  retrieved,  A retrieval  may 
consist  of  two  or  more  statements  containing  the 
following  operators. 

TITLE 

LIMIT 


PILE 

IP 


KEYWORD 

PUFTHEP 

SORT 

SELECT 


The  TITLE  statement  and  either  the  IP  or 
statement  must  be  present  to  generate 
other  statements  may  be  added  in  selected 
to  specify  additional  services. 


the  KEYWORD 
a retrieval, 
combinations 


Retrieval  Division  — A set  of  statements  which 
specifies  the  operations  to  be  performed  against  the 
Permanent  Retrieval  Library  (except  DELETE)  or  against 
one  or  more  data  files. 

Retrieval ID  — The  Retrieval  ID  consists  of  the 

combination  formed  by  the  retrieval  name  and  retrieval 
number  as  specified  on  the  TITLE  statement. 

Retrieval  Library  Action  --  The  unit  of  work  for  RfcSP 
which  requires  action  (s)  to  add,  delete,  or  replace 
retrievals  stored  on  the  Retrieval  Library. 
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Retrieval  Name  — A symbolic  label  assigned  by  a user 
which  uniquely  identifies  each  retrieval  used  in  the 
system.  The  label  is  specified  in  the  first  operation 
in  the  TITLE  statement. 

Retrieval Request  --  A statement  containing  conditions 

for  the  qualification  of  data  sets  in  a retrieval. 

PIT  — Report  Instruction  Table. 

HT  Name  — The  label  which  uniquely  identifies  a group 
of  specifications  (RIT)  that,  when  executed,  produces  a 
required  output  format. 

Secondary  Indexing  — An  optional  capability  whereby  a 
user  can  index  a data  file  based  on  the  contents  of  a 
field  other  than  the  Record  ID.  The  capability 
encompasses  Index  Specification,  Index  Maintenance,  and 
Index  Processing,  Refer  t.o  Volume  I,  Introduction  to 
File  Concepts,  for  discussion  and  definition  of  these 
terms. 

Single-File  Retrieval  --  one  or  more  retrievals  to  be 
executed  against  one  file  in  a particular  job. 

Skeleton  Ouer  y — This  is  a query  which  contains 
operands  in  the  condition  portion  of  the  query  and/or  in 
the  sort  statement (s)  which  have  been  designated  (by  an 
underscore  character,  0-5-8  punch,  prefixed  to  the 
operand)  as  being  replaceable.  The  skeleton  query  is 
compiled  and  stored  on  the  Permanent  Retrieval  Library. 
It  can  De  executed,  replacing  any  or  all  of  the  operands 
which  were  designated  as  replaceable.  Any  operand  which 
is  not  replaced  will  default  to  its  original  operand 
value . 

Wo£k Area  — There  are  five  areas  available  for  use; 

each  area  is  four  bytes  in  length  and  nay  be  referenced, 
using  system  names  WORK  1 through  W0RK5.  The  work  area 
can  be  designated  as  a parameter  to  the  Function 
Operator,  as  a value  in  a condition  clause  or  as  a field 
in  a SORT  statement.  Data  is  placed  in  the  work  area 
through  use  of  the  Function  Operator  and  when 


14 


RETRIEVAL  AND  SORT  PROCESSOR  (RASP) 


referenced,  is  automatically  transferred  to  the  QRT, 
thus  making  it  available  to  the  Output  Processor  for 
display  or  further  processing. 


2,3  Control  Division 

Statements  used  as  input  to  RASP  have  been  classed  into 
two  divisions:  Control  Division  and  Retrieval  Division.  The 
Control  Division  consists  of  those  RASP  statements  defining 
the  RASP  job  environment  and  listing  the  delete  actions  to 
be  taken  against  the  Retrieval  Library.  The  Control 
Division  statements  are: 

FILE 

LIMIT 

EXECUTE 

NOTE 


DELETE 

2.3.1  Run  Initializing  Operators 

The  Control  Division  FILE  statement  is  always  required 
to  initialize  a RASP  run;  several  other  run-initializing 
operators  may  be  added  if  desired.  The  LIMIT  statement  may 
be  added  to  restrict  the  search  of  the  data  file  + o those 
logical  blocks  in  a specific  range  of  record  IDs.  The 
EXECUTE  statement  may  be  used  to  initiate  a Retrieval 
Library  search  for  one  or  more  retrievals  and  cause  them  to 
be  loaded  and  executed.  The  NOTE  statement  allows  the  user 
to  comment  his  source  listing.  The  DELETE  statement  allows 
the  user  to  delete  those  retrievals  previously  placed  on  the 
Permanent  Retrieval  Library. 


2. 3. 1.1  FILE 

The  FILE  statement  must  be  the  first  Control  Division 
statement.  The  PILE  statement  designates  the  file  to  be 
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employed  in  a single-file  retrieval  and  a file  in  a merged- 
file  retrieval.  The  file  naae  specified  in  the  Control 
Division  FILE  statement  operand  nay  be  referenced  explicitly 
in  the  retrieval  by  use  of  a Retrieval  Division  FILE 
statement.  The  file  name  specified  on  the  '‘ILE  statement 
must  correspond  to  the  unqualified  data  set  name  or  the  last 
segment  of  a qualified  data  set  naae  designated  on  the  DD 
statement. 

The  format  is: 

FILF  filename. 

A single-file  job  is  a job  in  which  all  FILE  statements 
name  the  same  file.  Within  the  single-file  job,  a FILE 
statement  may  follow  each  TITLE  statement  (optionally). 

A merged-file  job  is  a job  in  which  more  than  one  file 
is  named  within  a single  retrieval.  A maximum  of  10 
FILE  statements  are  permitted  in  a merged-file  retrieval. 
One  of  the  tiles  must  be  named  in  the  FILE  statement  in  the 
Control  Division  and  that  must  be  the  first  Control  division 
statement . 

Example 


FILE  TEST  3 60. 

Comment:  This  statement  specifies  that  the 

statements  which  fellow  pertain  to 
the  file  named  TEST36P. 

Thert-  miy  be  a mixture  of  tape  and  dish  files  in  one  job. 
A single  yDF-QRT  is  produced  for  a merged-file  job,  but  the 
QRT  is  sorted  so  that  outputs  will  be  separated  properly. 

Note:  In  a merged-file  job  there  is  only  one  retrieval; 

i.e.,  only  one  TITLE  statement. 
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2.3. 1.2  LIMIT 

The  LIMIT  statement  allows  the  user  to  restrict  the 
search  of  a data  file  to  logical  blocks  within  a specified 
range  of  record  IDs.  The  condition  of  a LIMIT  statement  is 
applied  in  one  of  these  modes  called  START,  STOP,  or  SEARCH. 
This  capability  is  effected  by  screening  the  high-order 
positions  of  the  record  ID  for  the  data  field  or  group 
value(s)  specified  in  the  LIMIT  statement,  and  usinq  the 
resulting  condition  to: 

a.  Initiate  a detailed  logical  search  of  subsequent 
records  (START  mode) 

b.  Terminate  the  search  against  the  file  (STOP  mode) 

c.  Perform  detailed  search  within  the  range  established 
by  the  first  and  second  occurrences  of  the  record 

ID  field  value  specified  in  the  LIMIT  statement 
(SEARCH  mode).  This  search  includes  the  values 
specified  as  a part  of  the  detailed  search. 

The  format  is: 


LIMIT 


[IF] 


f ield-na me 


9 


grou  p-namej 


[ partial-field  ] 


[ subroutine- name ] 


GT 


GE 


literal 

self-defining  term 
literal 


[STOP  J. 


[ START  ]. 


self-defining  term 


literal 

AND 

literal 

BT 

or 

self-defining 

U J 

sel f-def ining 

term 

term 

[ SEARCH  ] 
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where 

GT  is  stop-when-greater-than, 

GE  is  start-when-egual-to-or-greater-than, 

BT  is  search-for-equal-to-or-between. 

STOP,  START,  and  SEARCH  are  optional  words  which 
may  be  us^d  for  clarity,  but  lay  not  be  used  to 
change  the  meaning  of  an  operator. 

The  , is  *he  statement  terminator. 

The  placement  of  the  LIHIT  statement  determines  the 
effect  on  the  retrievals  in  the  job.  If  the  statement 
appears  in  the  Control  Division,  it  is  a primary  LIHIT 
statement  and  applies  to  all  retrievals  in  a job,  including 
those  specified  in  the  EXECUTE  statement.  A primary  LIHIT 
statement  may  be  placed  anywhere  in  the  Control  Division; 
however,  only  one  primary  LIHIT  statement  may  appear  in  a 
single  file  job.  Moreover,  the  primary  LIHIT  statement  is 
not  permitted  in  merged  file  jobs.  Finally,  primary  LIHIT 
statements  are  compiled  and  executed  but  cannot  be  placed  on 
the  Retrieval  Library. 

If  the  LIHIT  statement  appears  in  the  Retrieval 
Division,  it  is  a secondary  LIHIT  statement  and  applies  only 
to  a specific  retrieval. 

The  secondary  LIHIT  statement  follows  the 
TITLE  statement  if  ther»  is  no  FILE  statement;  otherwise  it 
follows  the  FILE  statement. 
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For  example: 

TITLE 
FILE 
LIMIT 


• 

FILE 
LIMIT 

If  the  secondary  LIMIT  statements  are  used  without  a 
primary  LIMIT  statement,  secondary  conditions  will  be 
imposed  upon  each  data  record  affected  by  that  re+rieval. 

If  a secondary  LIMIT  statement  is  used  in  addition  to 
the  primary  LIMIT  statement,  the  restrictions  imposed  by  the 
secondary  LIMIT  statement  will  be  imposed  only  if  the 
current  record  falls  within  the  conditions  imposed  by  the 
primary  LIMIT  statement. 

Secondary  LIMIT  statements  will  be  compiled  and  placed 
on  the  Permanent  Retrieval  Library  with  the  rest  of  the 
retrieval  logic.  It  will  be  executed  each  time  the 
retrieval  is  executed. 

To  remove  the  secondary  LIMIT  function  from  a retrieval 
on  the  Permanent  Retrieval  Library,  the  retrieval  must  be 
recompiled.  The  LIMIT  statement  must  be  omitted,  and  a new 
TITLE  statement  specifying  REPLACE  (retrieval  name)  as  an 
operand  must  be  included. 

The  maximum  number  of  LIMIT  statements  permitted  in  a 
single  file  retrieval  job  is  96  (one  per  retrieval),  while 
the  maximum  number  of  secondary  LIMIT  statements  permitted 
in  a merged  file  retrieval  is  10. 

Only  field  values  contained  in  the  Record  ID  may  be 
addressed  via  the  LIMIT  statement.  Also,  only  the  high- 
order  field  (or  fields,  if  a Record  ID  control  group  is 
named)  may  be  addressed  by  the  LIMIT  statement.  For  this 
reason,  when  a partial-field  option  is  used,  the  first  value 
must  be  a 1.  Any  other  value  will  produce  an  error  message. 


TITLE  or  TITLE  or 
LIMIT  FILE 

LIMTT 
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Example  1 


LIMIT  TF  UIC  GT  JJT0026. 

Comment:  A STOP  condition  is  implied  by  the  greater-than 

relational  operator. 

Detailed  conditional  logic  mill  be  applied  to  each  record 
from  the  beginning  of  the  file  and  will  stop  with  a value 
greater  than  39992b. 

The  effect  is  the  same  as  reaching  an  END-OP-PILE  condition. 
Example  2 


LIMIT  I?  UIC  GE  (100019  START. 


Comment:  A START  condition  is  imposed  by  the  'greater  than' 
or  'equal  to'  relational  operator.  The  search  will  begin 
with  the  record  which  contains  a value  of  H999 19  or  greater 
in  the  Unit  Identification  Code  group. 

Example  3 


LIMIT  IF  UIC  BT  H0 0007 /M 0009 3 SEARCH. 


Comment:  A B FT WEEN  condition  is  imposed. 

All  records  whose  control  group  contains  values  in  the  range 
n09907  and  *99991  inclusive  will  be  retrieved  using  the 
IF/FURTHER  conditional  logic. 
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Example  4 

FILE  TEST360. 

LIMIT  IF  UIC  BT  K$  AND  V$. 

TITLE  SOR V26 /0312. 

LIMIT  SER V B*1  J AND  H. 

IF  UNLVL  EQ  SQ  AND  MEDEP  EQ  9 
AND  HEQPT  NE  9 AND  MECI  EQ  A. 

SORT  ATTACH , SERV,  ONLVL . 

TITLE  SORV27/0313. 

IF  UNLVI  EQ  SQ  AND  MECL  1/1  EQ  G H. 

SORT  ATTACH,  SERV,  UNLVL . 

Comment:  This  batch  contains  both  a primary  LIMIT  and  a 

secondary  LIMIT.  The  priaary  LIMIT  affects  both  retrievals, 
restricting  file  reading  to  those  records  in  which  the  first 
t character  of  the  Record  ID  is  K,  L,  H,  or  V.  (The  •$' 

syabol  indicates  the  end  of  a partial  field.)  In  addition, 

I the  first  retrieval  is  restricted  to  a test  of  those  records 

for  which  the  major  field  in  the  control  group  (high-order 
position  of  Record  ID)  contains  a value  between  J and  M 
inclusive;  thus  the  coabination  of  priaary  and  secondary 
LIMITS  restricts  the  first  retrieval  to  those  logical  blocks 
whose  Record  ID  begins  with  K through  M. 

Example  5 

LIMIT  IF  SEPV  BT  H/H. 

Comment:  The  between  relational  operator  may  be  used  to 
restrict  application  of  conditional  logic  to  a specific 
value.  In  this  example  only  those  records  containing  a "M" 
in  the  high-order  position  of  the  record  identification 
field  will  be  processed. 
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2. 3. 1.3  LIMIT  Processing  and  Index  Processing 

Index  processing  will  recognize  any  primary  LIMIT 
specified  and  will  consequently  eliminate  candidate  records 
not  tailing  within  the  primary  range.  Records  within  this 
range  may  oe  within  the  secondary  LIMIT  of  some  retrievals, 
but  not  within  that  of  others.  Index  Processing  will  not  be 
concerned  with  any  secondary  LIMIT,  but  will  present  all 
candidates  within  the  primary  range  for  examination.  Those 
records  outside  the  secondary  range  for  each  retrieval  will 
then  b»  eliminated  by  normal  LIMIT  processing. 

Assume  in  the  following  example  that  the  search  will  be 
restricted  to  reports  in  which  the  field  CNTRY  contains  the 
value  "US". 

FILE  TEST360. 

LIMIT  IF  UIC  BT  K?  AND  VJ. 

TITLE  SORV28/0  314. 

' LIMIT  SER V BT  J AND  M. 

IF  CNTRY  EQ  OS. 

SORT  ATTACH  SEPV  MNLVL. 

TITLE  SORV29/0315. 

i 

IF  CNTRY  EQ  US  AND  MECL  1/1  EQ  G,N. 

i 

SORT  ATTACH  SEPV  MNLVL. 

Comment:  This  retrieval  contains  both  a primary  LIMIT  and  a 

secondary  LIMIT.  The  primary  LIMIT  affects  both  retrievals, 
restricting  file  access  to  those  records  in  which  the  first 
character  of  the  Record  ID  is  in  the  range  K to  V.  In 
addition,  the  first  retrieval  is  further  restricted  to 
examining  only  those  records  whose  service  field  (SEPV)  is 
in  tne  range  J to  M.  The  primary  and  secondary  LIMITS 
comoine  to  restrict  the  first  retrieval  to  those  data 
records  whose  Record  ID  begins  with  K through  M. 

I V 
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Index  Processing  will  recognize  only  the  primary  LIMIT. 
Only  those  candidates  whose  beginning  Record  ID  character  is 
in  the  range  K through  V will  be  presented.  For  the  first 
retrieval,  these  records  outside  the  range  of  J through  M 
(the  range  of  the  secondary  LIMIT)  would  be  eliminated  by 
ordinary  LIMIT  processing. 

2. 3. 1.4  EXECUTE 

The  EXECUTE  statement  allows  the  user  to  specify  the 
processing  of  retrieval  (s)  stored  on  the  Permanent  Retrieval 
Library. 

The  format  is: 

EXECUTE  retrieval  name  (replacement  variables), 

retrieval  name  (replacement  variables)... 

This  statement  is  required  only  if  one  or  more 
retrievals  are  to  be  executed  from  the  Permanent  Retrieval 
Library.  Each  library  retrieval  must  have  been  compiled  for 
one  of  the  files  specified  in  the  present  retrieval.  The 
statement  must  be  terminated  by  a period. 

Example  1 


EXECUTE  TSTF02R. 


Comment:  Illustrates  execution  of  a single  retrieval. 

Example  2 


EXECUTE  TSTP05R  (ARMY=NAVY)  ,TSTP(JT7R  ( APHY  = !I SAP)  , 
TSTF09R  (PLANE=F11 1)  . 


Comment:  Illustrates  execution  of  multiple  retrievals  with 
definition  of  replacement  variables  for  a skeleton 
query. 


The  EXECUTE  statement  is  used  to  define 
variables  when  executing  a skeleton  query, 
variables  are  specified  following  the  retrieval 


replacement 
Replacement 
name.  The 
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replacements  are  enclosed  in  parentheses,  and  the  EXECUTE 
statement  is  terminated  with  a period.  The  original 
operand,  as  designated  in  the  stored  skeleton  guery,  is  used 
as  a keyword.  This  is  followed  by  an  equals  character  (=) 
and  the  replacement  operand.  There  are  no  spaces  between 
the  keyword,  the  equals  character,  and  the  replacement 
operand.  When  an  operand  is  being  replaced  by  multiple 
operands,  the  replacement  would  appear  as  keyword,  equals 
character,  open  parenthesis,  operands  (separated  by  commas 
or  blanks) , closed  parenthesis.  All  replaceable  variables 
in  the  skeleton  do  not  have  to  be  replaced.  Those  which  are 
not  replaced  will  default  to  the  originally-specified  value 
in  the  stored  query.  (See  section  2.6  for  instructions  on 
defining  a skeleton  query.) 

The  keyword  operands  must  be  coded  exactly  as  they 
appear  in  the  stored  skeleton  query.  The  replacement 
variables  have  a form  similar  to  the  original  operands.  For 
example,  if  a field  name  prefixed  with  an  ampersand  is  being 
replaced,  then  the  replacement  variable  (field  name)  must  be 
prefixed  with  an  ampersand.  Operands  with  embedded  blanks 
must  be  enclosed  in  quotes.  Conversion  subroutines,  tables 
or  partial  field  notation  cannot  be  specified  on  the  EXECUTE 
statement. 

Assume  for  the  following  EXECUTE  examples  that  the 
sample  skeleton  query  shown  below  was  previously  compiled 
and  stored  on  the  Permanent  Retrieval  Library.  Note 
particularly  those  items  which  are  preceded  by  the 
underscore  character,  and  their  relation  to  the  examples. 

PILE  TESTER. 

TITLE  RET1/JM  NO-GO. 

IF  H2QPT  EQ  _T  ANK  AND  MEADA  LT  _SMEPSD. 

SORT  SERV. 

Example  3 


EXECUTE  RET1  (TAN  K=GUN, 6M  EPSD=6M3RDY) . 

Comment:  Where  the  oriqinal  value  TANK  appeared,  preceded  by 
an  underscore,  TANK  will  be  replaced  by  GUN,  and  6HEPSD, 
preceded  by  an  underscore,  will  be  replaced  by  f.NERDT. 


ir 
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A multiple  value  replacement  must  be  enclosed  in 
parentheses. 

Example  4 


EXECUTE  RET1  (TANK*  (GUN  , S HIP,  PL  AN  E) ) . 

Comment:  Where  the  original  value  TANK  appeared  in  th^ 
query,  it  will  be  replaced  by  the  multiple  value  of  GUN, 
SHIP,  and  PLANE;  6HEPSD  mould  not  be  replaced. 

A skeleton  may  be  executed  more  than  once  with  different 
replacement  values  within  the  same  execution  for  single-file 
retrievals  (the  multiple  execution  of  nerged-file  retrievals 
is  equivalent  to  batching  merged-file  retrievals,  which  is 
illegal).  However,  the  retrieval  number  for  the  second  and 
succeeding  executions  of  that  skeleton  will  automatically  be 
suffixed  with  an  alpha  character  beginning  with  the 
character  'A*  and  continuing  in  sequence. 

Example  5 


EXECUTE  RET1  (TANK=GUN , 6NEPSD=SHERDY) , 

RET  1 (TANK  = SHIP,S  HEPSD=SH EREQ)  . 

Comment:  The  answer  IDs  to  publish  the  answer  sets  resulting 
from  tne  preceding  example  would  be  *01*  for  the  first 
answer  set  and  •j?lA'  for  the  second. 

A value  designated  as  replaceable  can  be  omitted  by 
designating  a dollar  sign  mask  with  no  other  designation. 

Example  6 

EXECUTE  RET  (TANK=$,6HEPSD=6HERDY)  . 

Comment:  Where  TANK  was  designated  as  replaceable,  the 

condition  will  be  bypassed.  The  conditional  statement  to  be 
executed  will  therefore  be: 

IF  HEADA  IT  SHERD Y. 
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It  the  omitted  value  is  within  a Function  Operator  parameter 
list,  the  length  for  that  field  will  be  set  to  zero.  The 
user  must  recognize  this  within  his  subroutine  (see  section 
2.  7)  . 

2. 3. 1.5  NOTE 

The  NOTE  statement  allows  the  user  to  comment  his 
listing  of  source  statements.  Every  character  between 
NOTE  aud  the  terminator  (period  blank)  is  considered  part  of 
the  comment.  Since  NOTE  statements  play  no  part  in 
RASP  logic,  they  may  appear  anywhere  in  the  RASP  input. 


2.3.2  Library  Action  Operators 

The  library  action  operators  provide  the  facilities  to 
add,  replace,  and  delete  retrievals  from  the  Permanent 
Retrieval  Library.  Two  of  the  operators,  ADD  and  REPLACE, 
are  used  as  operands  in  the  TITLE  statement  since  a complete 
retrieval  must  be  supplied  to  effect  either  of  these 
operations.  A complete  discussion  of  these  two  operators  is 
, given  in  subsection  2. 4. 1.1. 

2. 3.2.1  DELETE  Statement 

Tne  DELETE  statement  designates  a retrieval  whose  name 
and  associated  library  information  is  to  be  deleted  from  the 
RASP  Permanent  Retrieval  Library. 

I'he  format  is: 

DELETE  retrieval-name,...,  retrieval-name. 

Any  number  of  DELETE  statements  may  be  used,  but  no  more 
than  256  retrieval  names  may  be  deleted  in  one 
RASP  execution. 

Example  1 

DELETE  TSTPUl. 
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Comment:  Illustrates  one  retrieval  deleted. 

Example  2 

DELETE  TSTF01,  TSTF01,  TSTF02,  TSTPfrd. 
Comment:  Illustrates  more  than  one  retrieval  deleted. 


2.4  Retrieval  Division  Statements 

The  Retrieval  Division  consists  of  those  statements  used 
to  identify  each  retrieval,  specifies  the  conditions  for 
data  selection,  and  defines  the  parts  of  the  record  to  be 
included  in  the  answer  set  and  the  ordering  or  arrangement 
to  oe  applied  to  the  data  retrieved.  Of  the  following 
Retrieval  Division  statements,  only  the  TITLE  and  either  the 
KEYWORD  or  the  I?  statements  are  required  for  a complete 
retrieval  specification. 

The  Retrieval  Division  statements  are: 

TITLE 

FILE 

KEYWORD 

NOTE 

LIMIT 

IF 

FURTHER 

SORT 

SELECT 

The  statements  will  be  discussed  in  the  following 
sections  in  the  order  cited.  The  NOTE  statement  may  occur 
at  any  point;  however,  the  arrangement  of  other  statements 
must  conform  to  certain  allowed  sequences.  Table  1 
summarizes  the  correct  sequence  for  retrieval  statements. 


2.4.1  Retrieval  Initializing  Operators 

The  Retrieval  Initializing  Operators,  within  a 
retrieval,  are  TITLE,  FILE,  and  NOTE. 
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2. 4. 1.1  TITLE 

The  TITLF  statement,  allows  the  user  to  label  the 
retrieval  and  assign  a label  to  the  answer  set;  to  test  the 
retrieval  for  compilation  errors  or  default  to  the  assenble- 
and-go  mode;  to  add  the  retrieval  to  the  Permanent  Retrieval 
Library  or  to  replace  existing  retrieval  with  this  one;  and 
to  specify  an  alternate  method  of  scanning  subsets. 
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Table  1 

SEQUENCE  MATRIX  POR  RETRIEVAL  STATEMENTS 


Possible  Next  Statement 


Current 

Statement 

TITLE 

FILE 

LIMIT 

KEYWORD 

.if 

FURTHER 

.SORT. 

SELECT 

TITLE 

X 

X 

X 

X 

FILE 

X 

X 

X 

LIMIT 

X 

X 

KEYWORD 

X 

X 

X 

IF 

X 

X 

X 

X 

X 

X 

SORT 

X 

X 

X 

X 

X 

X 

SELECT 

X 

X 

X 

X 

X 

FURTHER 

X 

X 

X 

- — — — 

X 

X 

X = Correct  Sequence 
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The  format  is: 

TITLE  retrieval  name/retrieval  number  jpiT-name]  JnoGO  SUBSCAN 

[addJ 

[REPLACE]  [retrieval  nane] 


where 

TITLE  (required)  — Ts  the  retrieval  initializing  operator 
and  must  be  the  first  word  in  the  statement. 

Retrieval  name  (required)  — Is  the  retrieval  name  consist- 
ing of  one  to  seven  alphameric  characters,  the  first  of 
which  must  be  alphabetic. 

/Retrieval  number  (required)  --  Provides  the  1-  to  4-digit 
retrieval  number  used  to  label  the  answer  set  produced 
for  the  output  processors. 

RIT-name  (optional)  --  Is  the  name  of  the  RIT  that  will  be 
used  to  process  this  retrieval. 

logo,  NO-GO,  no  GO  (optional)  --  Specifies  *hat  the  retrieval 
is  to  be  compiled  but  will  not  be  executed. 

SUBSCAN  (optional)  — Specifies  that  all  qualifying 
subsets  should  be  flagged. 

ADD,  REPLACE  --  Is  included  in  the  operand  field,  according 
to  the  function  to  be  performed: 

The  ADD  option  indicates  that  the  retrieval 
is  to  be  added  to  the  Permanent  Retrieval 
Library. 

The  REPLACE  option  indicates  that  the  re- 
trieval is  being  entered  in  its  entirety 
as  a replacement  for  an  old  retrieval. 

The  retrieval  ID  specified  must  already 
exist  in  the  library. 
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Note:  Only  one  function  (ADD  or  REPLACE)  can  be  used  at  a tine. 

. (required)  — Is  the  statement  terminator. 

The  TITLE  statement  is  always  the  first  statement  of  a 
retrieval.  The  retrieval  ID,  consisting  of  retrieval 
name/retrieva 1 number,  must  be  the  second  operand  of  the 
TITLE  statement.  Any  operands  that  follow  may  appear  in  any 
order. 

The  TITLE  statement  occurs  once  for  each  retrieval.  The 
retrieval  name  and  RIT  name  must  be  unique  within  the 
system;  the  retrieval  number  must  be  unique  within  the  run. 


Example  1 

TITLE  TSTF/101. 

Comment:  Labels  the  retrieval  as  TSTF  and  the  answer  set  as 
?10£.  Illustrates  assemble-and-go  with  no  library  actions 
and  no  RIT  specified. 

Example  2 

TITLE  TST PEP/23  DIAGNOS. 

Comment:  Labels  the  retrieval  as  TSTPEF  and  the  answer  set 
as  0023DIAGNOS.  It  accepts  the  assemble-and-go  mode  by 
default  and  defines  that  the  answer  set  labeled  (?0’23DIAGNOS 
will  be  processed  by  the  RIT  named  DIAGNOS. 

Example  3 

TITLF  TESTFEST/11  RPTSOFA  NO-GO. 

Comment:  Labels  the  retrieval  as  TSTFEST  and  the  answer  set 

as  0 (71  IBP T SOFA • NO-GO  specifies  that  this  retrieval  will  be 
compiled  but  will  not  be  executed. 

Example  4 

TITLE  TSTTEST/22  REPLACE  TSTFEBS  DIAGNOS. 
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Consent:  Labels  the  retrieval  as  TSTTEST.  Labels  the  answer 
set  as  j?j/22DT  AGNOS . It  requires  a library  action  to  replace 
an  existing  retrieval  having  the  naae  TSTFEBS  with  a new 
version  and  to  process  the  results  using  a PIT  naae  DIAGNOS. 
The  assemble-and- go  mode  will  be  taken  by  default.  Note 
that  if  the  retrieval  to  be  replaced  (TSTFEBS)  is  not  found 
on  the  Retrieval  Library,  RASP  will  still  add  the  TSTTEST 
retrieval  to  the  library. 

Example  5 


TITLE  TST7ST/22  REPLACE  TSTFEBS  DIAGNOS. 

Comment:  Same  comments  as  above  except  that  a different 
retrieval  is  replacing  TSTFEBS. 

Example  6 


TITLE  TSTFR  AA/ljjri,  TSTPRUN,  ADD. 

Comment:  Labels  retrieval  as  TSTFRAA,  the  answer  set  as 

0101TSTFRUN ; specifies  that  the  RIT  to  be  used  is  TSTFRUN 
and  thrs  retrieval  is  to  be  added  to  the  Retrieval  Library. 
The  default  option  of  assemble-and-go  is  desired.  In  this 
case  the  RIT  name  precedes  the  library  operator  ADD;  however 
the  sequence  of  these  two  operands  could  have  been  reversed. 
Note  that  it  a retrieval  named  TSTFRAA  already  exists  on  the 
Retrieval  Library,  this  retrieval  will  not  be  added. 

Example  7 


TITLE  TSTEPE/lUl, REPLACE  TSTFER,  NO-GO  DIAGNOS. 

Comment:  Labels  retrieval  as  TSTFP.E  and  answer  set  as 
01I71DIAGNOS  and  specifies  that  TSTPRE  is  to  replace  TSTFER. 
The  mode  is  compile  only  and  the  PIT  naae  DIAGNOS  will  be 
used  to  process  the  answer  set  produced  by  this  retrieval. 
If  the  test  is  successful,  the  user  only  need  pull  the  NO-GO 
operand.  Note  that  DIAGNOS  appears  last  and  is  followed  by 
a period  which  terminates  the  statement. 
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2. 4. 1.2  FILE 

The  FILE  nay  be  repeated  in  a single  file  retrieval  in 
whicu  case  it  must  follow  the  TITLE  statement  and  must  naae 
the  sane  file  specified  in  the  Control  Division. 

The  FILE  statement  is  used  in  a merged  file  retrieval  to 
indicate  that  the  conditional  logic  immediately  following 
applies  to  the  file  named  in  the  operand  of  this  statement 
and  overrides  the  primary  FILE  named  in  the  Control  Division 
FILE  statement.  If  the  secondary  FILE  statement  is  used  in 
a retrieval,  there  must  be  only  one  retrieval  in  the  job; 
i.e.,  merged  file  retrieval,  and  there  nay  be  up  to  10 
FILE  statements. 

The  format  of  the  secondary  FILE  statement  is: 

FILE  filename  . 


where 

FILE  (required)  - is  the  statement  identifier. 

filename  (required)  - is  the  7-character  file  name  which 
corresponds  to  the  unqualified  data  set  name  or  the  last 
segment  of  a qualified  data  set  name  to  be  processed  by 
this  retrieval. 

. (required)  - is  the  statement  terminator. 

2. 4. 1.3  NOTE 

The  NOTE  operator  is  discussed  in  subsection  2. 3.1.4. 

2.4.2  Conditional  Statements 

The  conditional  statements  within  a retrieval  are  L1FIT, 
KEYWORD,  IF,  and  PUPTHER. 
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2. 4. 2.1  LIMIT 

The  LIMIT  statement  is  described  in  subsection  2.3. 1.2. 


* 
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2. 4. 2. 2 KEYWORD 


To  employ  keyword  retrieval,  a KEYWORD  statement  must  be 
included  to  provide  the  logical  criteria  for  da*a  selection. 
The  KEYWORD  statement  consists  of  conditional  clauses, 
logical  connectors  and  parentheses.  Only  one  KEYWORD 
statement  is  allowed  for  a query.  It  aay  h°  the  only 
conditional  statement  in  a query. 


The  format  it: 

KEYWORD  clause 


where 

KEYWORD  (required)  - is  the  statement  identifier  and  aust 
tie  the  first  word  in  the  stateaent. 

clause (at  least  one  required)  - is  a true  assertion. 
The  method  of  coding  clauses  is  described  below. 

AND,  OR (optional)  - defines  the  relation  between  clauses 
(or  groups  of  clauses)  when  the  K5YWOPD  stateaent 
contains  more  than  a single  clause. 

. (required)  - is  the  statement  terminator. 


2. 4. 2. 2.1  Condition  Clauses  and  Keyword  Indexing 

Coding  of  a keyword  condition  clause  requires  use  of  a 
keyword  indexed  field,  the  INCLUDES  relational  operator,  and 
a value  or  multiple  values.  The  complete  format  of  one 
clause  is: 

fieldname  INCLUDES  data  value(s) 

groupname 


34 


RETRIEVAL  AND  SORT  PROCESSOR  (PASP) 


I 

where 

fieldname, groupname  - identifies  the  naae  of  a fixed- 
length  alpha  field,  variable- length  field,  or  variable 
set  that  has  been  defined  as  a keyword  indexed  field  and 
is  to  be  tested  against  the  data  value  (s). 

INCLUDES  - is  the  relational  operator  stating  that  the 
data  value  must  be  included  within  the  specified  field. 

data  value  - is  either  a literal  or  self-defining  term 
which  is  a keyword  for  the  field.  There  may  be  multiple 
data  values. 


2.  4.  2. 2.  2 LIMIT  Processing  and  Keyword  Indexing 

The  KEYWORD  statement  functions  on  the  sane  level  as  the 
secondary  LIMIT  statement.  The  list  of  candidates  from 
keyword  index  processing  is  merged  with  the  list  from 
secondary  index  processing.  If  there  is  no  secondary 
indexing,  the  keyword  list  becomes  the  candidate  list  for 
retrieval.  Index  processing  is  not  concerned  with  a 
secondary  LIMIT  statement.  All  candidates  within  the 
i primary  range  are  presented  for  retrieval  examination. 

Those  records  falling  outside  the  secondary  range  are 
eliminated  by  normal  LIMIT  processing.  Index  processing 
does,  however,  recognize  any  primary  LIMIT  specified  and 
eliminates  candidate  records  that  do  not  fall  within  the 
primary  range. 

FILE  TEST360. 

TITLE  Q1/1. 

LIMIT  IF  SERV  BT  J/H. 

KEYWORD  COMMENT  INCLUDES  AIRCP  AFT. 

IF  UNFLG  EQ  K. 

UNFLGS  is  not  an  indexed  field,  therefore,  the  candidate 
list  presented  for  retrieval  will  consist  of  all  the  record 
IDs  that  have  a COHMEN’’’  field  which  includes  AIRCRAFT. 
LIMIT  processing  will  eliminate  all  records  that  have  a SERV 
field  not  between  J/H.  Qualifying  records  will  be  those 
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that  have  a SERV  between  J and  N,  and  COMMENT  field 
containing  AIRCRAFT  and  fJNFLG  field  equal  to  K. 

FIELD  TEST360. 

LIMIT  Ip  IJIC  BT  KS  AND  V$. 

TITLE  Q2/2. 

LIMIT  I?  SERV  BT  J/N. 

KEYWORD  COMMENT  INCLUDES  AIRCRAPT. 

IF  UNPLG  EQ  K. 

Index  processing  will  recognize  the  primary  LIMIT 
statement  so  that  the  only  records  that  will  become 
candidates  for  retrieval  will  be  those  which  have  a letter 
between  K and  V as  the  first  character  of  their  record  ID 
and  the  COMMENT  field  containing  AIRCRAPT.  The  final 
qualification  will  be  t.o  follow  the  same  criteria  as  the 
previous  example. 


2. 4.2.2. 3 Examples  Using  Keyword  Indexing 

The  KEYWORD  statement  invokes  index  processing  to  break 
down  the  statement  into  clauses  and  to  natch  the  data  value 
in  tufa  clause  against  the  keywords  for  that  field  in  the 
index  data  set.  The  keywords  consist  of  previously  selected 
value  (s)  from  the  data  field  that  are  likely  subject 
candidates  for  retrieval.  Once  a keyword  field  qualifies  a 
record  for  retrieval,  no  further  examination  of  that  field 
is  necessary. 

Example  1 

KEYWORD  REMARKS  INCLUDES  NHCSSC. 

In  this  example,  REMARKS  is  a variable  field  in  the  data 
file  that  has  also  been  defined  as  a keyword  index.  Only 
those  records  that  have  a REMARKS  field  containing  the 
keyword  NHCSSC  will  be  included  in  the  candidate  list.  In 
this  case,  since  there  was  only  one  value  specified,  all 
candidate  records  will  qualify  for  retrieval. 


— 


. 
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Example  2 


KEYWORD  REMARKS  INCLUDES  NMCSSC,  AOC  OP  VSET1  INCLUDES 
•NOVEMBER,  1972*. 


In  this  exanple,  REMARKS  is  a variable  field,  VSET1  is 
a variable  set  and  both  have  been  defined  as  keyword 
indexes.  All  records  that  have  a REMARKS  field  containing 
either  NMCSSC  or  AOC  or  a VSET1  containing  NOVEMBER,  1972 
will  be  presented  as  candiates.  This  literal  must  be 
bounded  by  quotes  in  order  to  have  the  special  character  of 
a coaia  and  the  blank  included  as  part  of  the  value  search. 


Example  3 

KEYWORD  (REMARKS  INCLUDES  VIETNAM  AND  TYPE  INCLUDES  F-111) 
(COMMENT  INCLUDES  AIRCRAFT  AND  HOME  INCLUDES  N)  . 

IF  DATE  EQ  JUL72 . 

in  this  example,  REMARKS  and  COMMENT  are  variable 
fields,  TYPE  and  HOME  are  fixed-length  alpha  fields,  and  all 
have  been  defined  as  keyword  indexes.  DATE  is  a fixed- 
length  field  defined  as  a secondary  index.  The  following 
records  would  becone  candidates  for  retrieval:  those  having 
REMARKS  containing  VIETNAM,  TYPE  containing  F-111,  COMMEN'” 
containing  AIRCRACT,  HOME  egual  N and  DATE  equal  to  JUL72 « 

Example  4 

KEYWORD  REMARKS  INCLUDES  TECHNICIAN. 

IF  RANK  EQ  'E-7' . 

In  this  example,  RANK  is  not  an  indexed  field.  The 
candidate  list  would  consist  of  those  records  containing  a 
REMARKS  field  which  includes  the  value  TECHNICIAN.  These 
records  will  be  accessed  to  examine  the  RANK  field.  The 
qualifying  retrieval  records  will  be  only  those  that  have 
both  REMARKS  containing  TECHNICIAN  and  RANK  equal  E-7. 

Exanple  5 


OR 


FILE  TEST360 
TITLE  Q3/3. 
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K E ¥ WORD  COMMENT  INCLUDES  PERSONNEL. 

IF  CNTRY  EQ  UK. 

TITLE  Q4/4. 

KEYWORD  COMMENT  INCLUDES  BASE. 

IF  CNTRY  EQ  * GE' . 

one  KEYWORD  statement  per  query  is  allowed.  COMMENT  is 
a Keyword  indexed  field,  CNTRY  is  a secondary  indexed  field. 
The  first  query  will  produce  output  of  all  records  that  have 
COMMENT  field  containing  PERSONNEL  and  CNTRY  field  equal  to 
UK.  The  second  query  will  produce  output  of  all  records 
that  have  COMMENT  field  containing  BASE  and  CNTRY  field 
equal  to  GE. 


2. 4. 2. 3 IF 

Every  retrieval  which  does  not  have  a KEYWORD  statement 
must  have  an  IF  statement.  This  statement  provides  the 
logical  criteria  of  data  selection  for  fields  that  are  not 
keyword  indexes.  The  IF  statement  consists  of  conditional 
clauses,  logical  connectors,  and  parentheses. 

The  format  is: 


AND 

AND 

IF  clause 

cla  use. . . 

_0R 

_0R_ 

where 

IF  (Required)  --  Is  the  statement  identifier.  It  must  be 
the  first  word  in  the  statement. 

AND,  OR  (Optional)  — Defines  the  relation  of  two 
clauses  when  the  IF  statement  contains  more  than  a 
single  clause. 

Clause  (Required)  --  Is  a true  or  false  assertion,  such 
as:  The  boy's  name  is  %Tohn;  the  boy  lives  in  Missouri; 
the  boy  is  under  21.  The  method  of  coding  clauses  for 
RASP  to  evaluate  is  described  below.  Clauses  nay  be 
enclosed  in  parentheses  to  define  complex  relations: 
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IF  (clause-1  OR  clause- 2)  AND  (clause-3  OR  clause-4),  is 
equivalent  to 

I?  clause-1  AND  clause-3  OR  clause-1  AND  clause-4  OR 
clause-2  AND  clause-3  OR  clause-2  AND  clause-4. 

. (Required)  — Is  the  statement  terminator. 

There  are  three  types  of  conditional  clauses.  The 
standard  type  of  clause  consists  of  a file  field,  a 
relational  operator,  and  a value (s).  The  second  uses  the 
ABSENT  operator  and  consists  solely  of  a file  field  and  the 
operator  ABSENT.  The  third  is  referred  to  as  a Function 
Operator  and  causes  the  execution  of  a user-written 
subroutine  as  part  of  the  qualification  of  the  data  record. 

The  first  and  third  types  of  clause  may  reference  an 
index  field,  and  therefore  cause  indexing  information  to  be 
used.  How  Index  Processing  interprets  the  retrieval  logic 
and  the  rules  by  which  it  determines  if  indexing  information 
can  be  utilized  are  discussed  in  section  2. 4. 2. 3.2, 
Condition  Clauses  and  Secondary  Indexing.  In  sections 
2. 4. 2. 3.1,  standard  Condition  Clause,  and  2. 4. 2. 3. 4, 
FUNCTION  Operator,  only  specific  points  covering  Secondary 
Indexing,  such  as  restrictions,  will  be  discussed. 

I 

2. 4. 2. 3.1  Standard  Condition  Clause 

Coding  of  a standard  condition  clause  requires  use  of  a 
file  field,  a relational  operator  and  a value  or  multiple 
values  such  as: 

t 

PERS  EQ  16 

This  asserts  that  the  specified  file  field  contains  a data 
value  of  16,  which  may  be  true  or  false.  RASP  generates 
coding  to  determine  the  truth  or  falsity  of  each  clause  and 
the  combine!  truth  or  falsity  of  the  IF  statement.  The 
complete  format  of  one  clause  is: 


39 


RETRIEVAL  AND  SORT  PROCESSOR  (RASP) 


[ANY] 


field-name 

group-name 


[partial-field]  [subroutine-name]  [NOT] 


relational  operator 


data  values 
self-defining  term 
literal 


where 


ANY  (optional)  — Is  used  to  modify  the  conditional 
logic  so  that  successive  terms  against  the  same  periodic 
set  are  not  evaluated  within  one  subset  at  a time. 
(Ordinarily,  when  two  or  more  conditional  clauses  make 
reference  to  the  sane  periodic  set,  all  clauses  are 
evaluated  within  one  subset  at  a time.  The  keyword  ANY 
modifies  conditional  logic  to  allow  the  conditions  to  be 
met  within  the  entire  set  rather  than  one  subset.)  For 
example,  consider  the  TEST360'  file.  To  test  for  a unit 
with  both  B-52  and  C-5A  aircraft: 

IF  MEOPT  EQ  B-S2  AND  ANY  NEQPT  EQ  C-5A. 

Note:  without  the  ANY  modifier  in  the  above  example,  both 
conditions  would  have  to  be  met  within  the  same  subset, 
which  is  not  possible.  Use  of  the  SUBSCAN  option  on  the 
TITLE  statement  modifies  subset  scanning  such  that  the  "OP 
ANY"  condition  is  treated  as  an  "OP"  condition;  i.e., 
successive  terms  against  the  same  periodic  set  are  evaluated 
one  subset  at  a time. 

Field-name,  group-name  (required)  --  Identifies  the 
character  string  in  the  record  to  be  tested  against  the 
data  value.  when  used  with  either  the  circle  or 
overlapping  polygon  relational  operator,  the  field-name 
or  group-name  must  reference  an  internal  coordinate  mode 
character  string. 

Partial-field  notation  (optional)  --  Specifies  the 
portion  of  the  file  field  or  group  character  string  to 
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be  used  in  the  compare.  Partial-field  notation  cannot 
be  used  with  the  circle  or  overlapping  polygon 
relational  operators.  Partial-field  notation  is 
permitted  into  but  not  out  of  a subroutine  or  table. 
Partial- field  notation  nay  not  be  specified  on  binary, 
or  coordinate  fields.  Partial  field  notation,  if  used, 
will  nullify  Index  Processing  for  the  clause. 

Subroutine-nane  (optional)  — Is  the  name  of  a 
subroutine  used  to  convert  the  data  value  (s)  following 
the  relational  operator  to  internal  foraat.  Subroutine 
conversion  aust  not  be  specified  with  the  circle  and 
overlapping  polygon  relational  operators.  It  is  also 
not  allowed  with  CONTAINS  relational  operator. 

NOT  (optional)  --  Reverses  the  truth  value  of  the 
relational  operator. 

Relational  operator  (one  required). 

LT,  LESS,  BEFORE,  EARLIER  --  Are  relational  operators 
signifying  'less  than*. 

LTE,  LE  --  Are  relational  operators  signifying  ‘less 
than  or  equal  to'. 


GT,  GREATER,  APTEP,  LATTER  --  Are  relational  operators 
signifying  'greater  than'. 

GTE,  GE  --  Are  relational  operators  signifying  'greater 
than  or  equal  to'. 


EQ,  EQUAL,  EQUALS,  EQUALING  --  Are  relational  operators 
signifying  'equal  to'. 

NE  --  Is  a relational  operator  signifying  'not  equal 

to' . 


BT,  BETWEEN  — Are  relational  operators  signifying 
'between  (and  including)'. 

CONTAINS  — Is  a relational  operator  which  is  used  to 
scan  the  referenced  field  or  set  for  the  designated 
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pattern (s).  The  referenced  field  may  not  be  binary  or 
coordinate  mode.  If  the  variable  set  is  referenced, 
qualification  is  at  the  record  level  rather  than  at  set 
level. 

CIS,  CIRCLE  — Are  relational  operators  used  to  test  if 
a point  falls  within  a circle  specified  as  a data  value. 
The  point  being  tested  must  be  stored  in  an  internal 
cooriinate  mode  field  or  group. 

OVP,  OVERLAP,  OVERLAPS  — Are  relational  operators  used 
to  test  if  a point,  or  polygon  overlaps  a data  value 
polygon.  A polygon  is  specified  by  any  number  of 
coordinates  from  one  to  eight.  A one-coordinate  polygon 
is  a point,  a two-coordinate  polygon  is  a line,  and  a 
tnree-or- more  coordinate  polygon  is  an  enclosed  area 
polygon.  No  polygon  may  overlap  the  Greenwich  Meridian 
(0  degrees  longitude) , which  is  a two-coordinate 
polygon.  The  polygon  being  tested  must  be  stored  in  an 
internal  coordinate  mode  field  or  group.  Table  2 
illustrates  the  true  and  false  results  of  the  four 
permissible  OVP  relations. 

Note  that  only  the  CIRCLE  search  and  OVERLAP  relational 

operators  may  be  used  with  coordinate  fields. 
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The  enclosed  area  polygon  specified  to  the  OVP  operator 
may  be  concave  or  convex  and  must  have  the  coordinates 
of  the  vertices  defined  in  a counterclockwise  order. 
Note  that  only  the  above  four  combinations  of  polygons 
nay  be  tested  for  overlapping. 

Data  values  The  nuaber  and  type  required  vary  with 
the  relational  operator  and  are  described  in  the 
following  paragraohs. 

Self-defining  terra  --  Is  data  whose  value  is  inherent  in 
the  terra.  Examples  of  valid  self-defining  terms  are: 
15 9,  E-lll > ABC. 

Literal  — Is  data  whose  value  is  enclosed  in  quotation 
narks.  Any  term  which  contains  a special  symbol  other 
than  a dash  or  a dollar  sign  oust  be  enclosed  in 
quotation  narks;  i.e.,  introduced  as  a literal.  A 
literal  used  as  a single  data  value  aay  contain  all  but 
the  following  combinations  within  the  literal: 

') 
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' blank 

« 

9 


A literal  used  as  a subfield  of  a ter*,  e.g.,  BT  'NEW 
LONDO N ' / • NEW  YORK',  nay  contain  all  but  the  following 
character  conbinations  within  its  delimiters: 

') 

' blan  k 

I 

• 

I 

9 

Note:  For  efficiency  when  using  Multiple  data  values 

specify  the  *ost  frequently  occurring  value  first. 

Indirect-address  literal  --  Is  the  name  of  a field,  the 
contents  of  which  will  be  used  as  a data  value.  It  nay 
not  be  a variable  length  field  or  the  variable  set.  The 
field  name  must  be  preceded  with  an  ampersand  (£)  . When 
this  capability  is  used,  the  contents  of  the  field  in 
the  data  base  are  used  to  make  the  comparison.  All 
<•  lids  referenced  in  one  clause  must  belong  to  the  fixed 
or  to  the  same  periodic  set.  Indirect-address 
•literal  usage  will  nullify  Index  Processing  for  the 
cl  > 'ise. 


System-provided  work  areas  --  Have  the  following 
attributes:  There  are  five  areas  available  for  use. 
They  are  four  bytes  in  length  and  may  be  referenced 
using  system  names  WORK  1 through  WORK 5.  A work  area  can 
be  designated  as  a parameter  to  the  Punction  Operator, 
as  a value  in  a condition  clause  or  as  a field  in  the 
sort  irey.  Note,  however,  that  the  only  means  for 
placing  data  in  a work  area  or  resetting  a work  area  is 
through  use  of  the  Function  Operator  and  that  processing 
of  a query  is  in  set  sequence.  There  will  be  a set  of 
work  areas  per  IP  or  FURTHER  statement. 

Within  a conditional  (IF  or  FURTHER)  statement,  work 
areas  containing  th®  function-generated  data  are  output  on 
the  QRT  for  each  qualifying  fixed  set  and/or  periodic 
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subset.  All  work  areas  up  to  and  including  the  highest 
referenced  within  the  conditional  statement  will  be  output; 
i.e.f  if  W 0RK4  was  referenced,  HORK1  through  W0PK4  will  be 
output  on  the  QRT.  The  work  areas  will  be  output  to  the  QPT 
for  all  sets  and  qualifying  subsets  within  the  conditional 
statenent.  This  nay  result  in  data  not  wanted  for  output 
being  placed  on  the  QPT.  Obviously,  only  those  work  areas 
required  for  display  or  processing  by  the  Output  Processor 
should  be  referenced  in  the  user’s  Report  Instruction  Table 
or  QUIP  query.  The  amount  of  work  area  data  written  on  the 
QRT  can  De  controlled  through  careful  use  of  the  work 
designation  and  with  the  SELECT  statenent  (see  subsection 
2. 4.3.2).  If  only  one  work  area  is  required,  then  W0RK1 
should  be  used.  If  two  work  areas  are  used,  W0PK1  and  W0RK2 
should  be  used,  etc.  If  only  data  from  a specific  set  is  to 
ultinately  be  reported,  then  only  that  set  should  be 
selected  for  output  to  the  QDF  with  QRT  pointers  generated 
accordingly. 

Coordinate/radius  (required  for  CIR)  — Is  a data  value 
conposed  of  a coordinate  in  11-  or  15-character  format,  and 
a radius  of  1 to  5 digits; 

DDHHXDDDNH Y/XXXXX 

DDHMSSXDDDMMSSY/XXXXX 

where 


DD 

= 

latitude  in  degrees 

NH 

-= 

minutes  in  degrees 

SS 

= 

seconds  of  degrees 

X 

= 

N for  North  and  S for  South 

DDD 

= 

longitude  in  degrees 

Y 

* 

E for  east  and  W for  west 

/ 

= 

subfield  separation  symbol 

xxxxx 

= 

radius  in  nautical  miles  not  to 
exceed  108??. 

The  coordinate  will  be  converted  automatically  to  internal 
format  by  a standard  system  subroutine  (UTCORDI) . 

Coordinate/coordinate...  (required  for  OVP)  — is  a data 
value  composed  of  two  or  more  coordinates  separated  by 
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I 

t 


i 

I 


i 

i 

i 
( < 
• 

i • 

i 


► 


slashes  and  describes  a point,  line,  or  polygon.  Vertices 
must  be  listed  in  counterclockwise  order. 

Note:  0 V P and  CTR  are  the  only  relational  operators  which 

may  be  used  with  coordinate  fields  defined  as  11  or 
more  characters  in  length.  OVP  and  CIP  cannot  be 
used  to  test  coordinate  data  stored  in  other  than 
coordinate  mode  fields  and  groups. 

Hhen  the  number  of  coordinates  being  specified  exceeds 
the  boundaries  of  a card  (cc  1-71),  the  following  convention 
must  be  followed: 


IF  POINT  OVP  coord/coord/coord 
coord/coord. 


(1st  card) 
(2nd  card) 


A slash  may  not  follow  the  last  coordinate  specified  in 
the  first  card.  The  second  card  may  begin  in  any  column  (1- 
71). 


Coordinate  fields  may  be  used  with  relational  operators 
other  than  CIR  and  OVP  if  they  are  defined  as  5-,  6-,  7-,  or 
8-character  format;  i.e.. 


DDMMX 

DDDMMY 

DDUMSSX 

DDDMXSSY 


(Latitude) 

(Longitude) 

(Latitude) 

(Longitude) 


Comparisons  of  GT , LT,  etc.,  are  made  based  on  the  internal 
coordinate  value.  For  latitude,  the  smallest  value  is  at 
the  South  Pole  {999999S)  ; and  the  highest  value  is  at  the 
North  Pole  (900090H) . For  longitude,  the  lowest  value  is 
9999099?*,  with  value  increasing  around  the  world  until  the 
highest  value  is  reached  at  0000000U. 

Note:  Coordinate  fields  are  initialized  by  FM  to  a value  of 
9000005  for  latitude  and  0000000E  for  longitude. 

Coordinate  fields  which  do  not  contain  user  data  can  be 
retrieved  as  follows: 
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a.  If  coordinate  fields  have  been  defined  as  5,  6,  7, 

or  8 positions,  use  the  appropriate  clause 

IF  LAT  EQ  9JW3S. 

IF  LONG  EQ  99999 E. 
or 

IF  LAT  EQ  900000S. 

IF  LONG  EQ  9999999?* 

where  LAT  and  LONG  represent  the  names  of 
coordinate  fields. 

b.  With  coordinate  fields  of  any  length,  a FUNCTION 
subroutine  clause  can  be  used,  as  follows: 

IF  FUNCTION  CDZERO  POINT. 

where  POINT  is  a coordinate  field  and  CDZERO  is  a 
subroutine  to  determine  if  the  field  contains  all 
binary  zeros. 

The  data  value  portion  of  a clause  indicates  what  values 
to  test  for  in  the  field  preceding  the  relational  operator. 
If  a data  value  contains  any  special  characters,  except 
dollar  sign  or  hyphen,  that  data  value  must  be  enclosed  in 
single  guotes.  Unless  the  relational  operator  is  CONTAINS, 
the  data  values  will  be  padded  with  blanks  in  the  rightmost 
positions  if  the  PFT  specified  the  field  as  alphabetic.  If 
the  field  is  numeric,  the  leftmost  positions  will  be  padded 
with  zeros  to  the  field  size  specified  by  the  FFT . Data 
values  longer  than  the  field  size  specified  by  the  FFT  are 
invalid.  If  the  field  is  coordinate,  all  11  or  15 
characters  must  be  specified. 

The  use  of  a dollar  sign  ($)  in  a data  value  parameter 
indicates  partial-field  notation  and  causes  that  character 
position  to  be  ignored  when  compared  to  its  corresponding 
character  in  the  data  base  field.  Dollar  signs  must  not  be 
used  in  data  values  tested  by  the  relational  operators 
CONTAINS,  CIR  and  OVP.  Dollar  signs  in  a data  value  will 
nullify  Index  Processing  for  the  clause.  If  dollar  signs 
appear  in  a data  value,  that  value  nay  not  he  converted  by 
a subroutine. 


i 
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An  example  of  the  use  of  the  dollar  signs  in  a data  value 
is: 

I?  HIER  EQ  AB $$. 


If  th®  data  has®  field  HTER  contains  A8GO,  a tru®  condition 
will  result.  Note  that  only  one  dollar  sign  in  the  data 
value  would  have  b»«n  sufficient  since  the  parameter  would 
be  padded  with  dollar  signs  in  the  rightmost  position;  i.e., 
IF  HIER  2Q  A BS . would  be  valid.  The  dollar  sign  nay  appear 
at  the  high-  cr  low-order  positions  in  the  data  value  but 
nay  not  be  embedded  within  the  data  value.  ror  exaaple, 
SABS  would  ue  legal,  but  ASB$  would  be  illegal. 

•hen  using  multiple  data  values  with  the  dollar  sign 
capability,  all  data  values  Bust  have  the  same  pattern.  For 
example,  IF  FI EL DA  EQ  ABS,  AC$.  would  be  legal,  but 
IF  FIELD A EQ  SAB,  ACS.  would  not. 


dultiple  data  values  may  be  used  only  with  the  EQ,  NE, 
CONTAINS,  and  B?  relational  operator.  The  following  are 
conditional  statements  with  multiple  data  values: 

IF  NEQP T NE  A-4C,  HU-16A,  C-54P. 


IF  PLAN  BT  301/40$,  *0$/ 65$. 

The  first  condition  is  true  if  some  value  other  than  A-4C, 
HU-lbA,  or  C-T4P  is  contained  in  the  major  eguipment  field. 
The  second  condition  is  true  if  the  plan  field  lies  within 
eituer  of  the  two  ranges. 


when  using  the  NE  relational  operator  or  the  modifier 
NOT  with  the  EQ,  BT,  or  CONTAINS  operators  and  multiple  data 
values,  there  is  an  implied  AND-type  logical  connector 
between  each  data  value.  With  the  EQ,  BT,  and  CONTAINS 
operators  when  the  modifier  NOT  is  not  used,  there  is  an 
implied  OR-type  logical  connector  between  the  data  values. 


Retrieval  Logic  --  An  IF  statement  may  be  composed  of 
several  clauses  linked  by  the  logical  connectors  AND  or  OR 
to  form  logical  conditions.  All  clauses  joined  by  AND  must 
be  satisfied  for  the  logical  block  to  qualify  on  this 
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clause.  Clauses  joined  by  AND  are  evaluated  together;  then 
the  OR  logic  is  performed  on  the  results.  To  modify  this 
order,  parentheses  may  be  used.  The  clauses  within 
parentheses  are  evaluated  independently,  and  where  nested 
parentheses  are  used,  the  expression  contained  in  the  most 
deeply  nested  parentheses  (that  is  the  innermost  pair  of 
parentheses)  is  evaluated  first.  Successively  higher  levels 
are  evaluated  until  the  truth  factor  for  the  entire 
statement  has  been  determined.  However,  flagging  is  done 
from  left  to  right;  this  is  discussed  under  Periodic  Set 
Logic. 

The  following  examples  illustrate  the  Boolean  logic  of 
retrieval.  All  the  conditions  for  which  the  statement  is 
true  are  illustrated.  T is  used  for  true  and  P for  false. 
Assume  that  the  clauses  represented  by  A,  B,  C,  D reference 
fixed  set  fields  only. 
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Example  1 

A OR  B 
T T 

F T 

T F 


A_AND_B 
T T 


Comment:  This  example  illustrates  simple  AND  and  OR  logic, 
showing  that  both  conditions  A and  condition  B must  be  true 
in  the  AND  case,  but  that  the  truth  of  either  or  both  is 
sufficient  for  OR. 


Example  2 


A OR  B AND  C 


T T T 

T F ? 

F T T 

T T F 

T FT 


(A  OR  B)  AND  C 

T T T 

FT  T 

T F T 


Comment:  In  RASP,  implied  parentheses  surround  each 
AND  group;  thus  the  logic  of  the  leftmost  table  stated 
explicitly  would  be  A OR  (B  AND  C) . In  the  example  at  the 
right,  the  terms  were  explicitly  grouped  by  enclosing  the 
terms  A OR  B in  parentheses.  Other  uses  of  parentheses  are 
given  in  examples  3 and  4. 
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Example  3 

(k  AND  B1 Of (C  AND  D) 

F F 

T F 

F T 

T T 

T T 

T T 

T T 


Coaaent:  The  explicit  fora  of  parentheses  is  illustrated  by 
the  statement  shown  above.  The  table  would  be  the  same  if 
the  parentheses  were  omitted. 


Example  4 


A_ 

,AND_ 

IB 

QB 

Cl  AND  D 

T 

T 

T 

T 

T 

T 

F 

T 

T 

F 

T 

T 

Comment: 

Compare 

this  example 

with 

the 

preceding 

illustration. 

Here, 

parentheses  have  been 

used 

to  regroup 

the  elements  of 

the 

expression  and 

the 

logic 

has  been 

altered  significantly. 
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Example  5 


A_0  R_B OR 

T F 

T T 

T T 

T T 

T T 

F T 

T f 

F T 

F T 

F T 

T F 

F F 

T F 


C AND  D 


F 

F 

T 

F 

T 

F 

T 

T 

F 

T 

F 

T 

T 


F 

F 

F 

T 

T 

F 

F 

F 

T 

T 

T 

T 

T 


Comment:  This  illustrates  compound  OR  logic  with  a single 
AND  condition. 

Periodic  Set  Logic  — The  following  examples  illustrate 
the  logic  of  retrieval  applied  to  the  periodic  set(s).  The 
lef t-to-r ight  logic  scan  shows  up  when  periodic  fields  are 
referenced.  The  labels  PX,  Pll,  P12,  P21,  etc.,  are  used  to 
indicate  a fixed  field,  a periodic  field  from  Periodic  Set 
1,  a second  periodic  field  from  Periodic  Set  1,  and  periodic 
field  from  Periodic  Set  2.  Successive  terms  against  the 
same  periodic  set  are  evaluated  one  subset  at  a time  if  they 
are  within  the  sane  parentheses  level.  If  the  subset 
qualifies  within  the  terms  of  the  expression,  it  is  flagged 
with  an  asterisk  (*) . The  fixed  field  condition  is  always 
assumed  to  be  true  in  these  examples. 
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Exaaple  1 

IP  FX  AND  Pll. 


Subset  Pll  Plaqs 

1 m * 

2 T * 

3 F 

4 T * 


Consent:  This  logical  block  will  be  selected  because  both 

the  fixed  and  at  leas*  one  periodic  subset  qualify. 

Exaaple  2 


IP  Pll  OR  PI7. 

Subset  Pll  P12  Flags 

1 TP* 

2 T T * 

3 P T * 

4 F P 


Coaaent:  Because  Pll  is  the  leftaost  tera  of  the  expression, 
it  is  evaluated  first.  If  it  qualifies,  the  subset  P12  does 
not  need  to  be  considered  and  scanning  proceeds  with  the 
next  subset.  If  Pll  fails  to  qualify  the  subset,  the  next 
tera  in  the  expression,  P12  in  this  case,  is  evaluated.  All 
qualified  subsets  are  flagged. 
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Example  3A 

IF  FX  AND  Pll  OP  P 12. 
Subset  £11  Pi 2 Flags 

1 T T * 

2 T F * 

3 FT 

4 F F 


Comment:  The  implied  parentheses  around  FX  and  Pll  prohibit, 

flagging  of  the  P12  field  even  though  it  is  in  the  same 
periodic  set  as  Pll.  The  P12  field  will  be  flagged  only  if 
the  expression  formed  by  the  first  two  terms  (PX  and  Pll)  is 
not  satisfied  within  the  periodic  set,  but  P12  is  satisfied. 

Example  3D  (with  SUBSCAN  option) 

IF  FX  AND  Pll  OR  P12. 

Subset  £11  £12  Flags 

1 T T * 

2 T F * 

3 FT* 

4 F F 

Comment:  The  implied  parentheses  have  no  effect  in  this 

case,  and  all  subsets  satisfying  the  condition  are  flagged. 
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Example  4 

IP  FX  AND  (P1I  OR  F12)  . 
Subset  £H  £12  Flags 

1 T T * 

2 T F * 

3 FT* 

4 F F 


Comment:  Use  of  the  parentheses  regroups  the  tern.,  of  the 

expression  and  allows  normal  set  scanning.  All  terns  from 
the  saae  set  are  evaluated  concurrently  if  the  teras  are  not 
grouped  by  actual  or  implied  parentheses  and  if  the  terms 
are  contiguous  in  the  input  stream. 

Example  5 

IF  FX  AND  Pll  AND  P12. 

£ii£set  £12  Flags 

1 T T * 

2 T F 

3 FT 

4 P F 


Comment:  AND  successive  periodics  from  the  same  set  imply 

the  requirement  for  satisfaction  from  the  same  subset. 
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Example  b 

IF  FX  AND  Pll  AND  P21. 

(Set  1)  (Set  2) 

Subset  Pll  Flag  P21  £U2 

1 T * T * 

2 T * F 

3 F T * 

4 F F 


Comment:  This  illustrates  the  rule  that  each  set  is  scanned 

and  flagged  independently.  When  all  conditions  of  the 
statement  have  been  satisfied,  the  record  qualifies. 

Example  7 

IF  FX  AND  Pll  AND  ANY  P12. 

Flags  After 
Subset  Pll  Scan  on  Pll 

IT* 

2 T * 

3 F 

4 F 


Comment:  The  net  results  are,  of  course,  flags  on  subsets  1, 
2,  and  3.  Use  of  the  ANY  modifier  forces  the  system  to 
consider  the  P12  as  if  it  queried  a different  set  than  Pll; 
i.e.,  flagging  is  performed  on  other  conditions  of  the 
subset  independently. 


Flags  After 
£12  Scift_oa_£l2 

T * 

F 

T * 

F 
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Example  SA 

IF  Pll  OR  ANY  P12. 

Flags  After 
Scan  on  P12 


* 

OP  ANY  P12  is 

different  from  IF  Pll  OR  P12.  The  latter  case  is  shown  in 
example  2.  Use  of  the  Modifier  ANY  forces  the  system  to 
treat  P12  as  if  it  queried  a different  set.  The  system 
examines  the  leftmost  term  of  the  expression  (which  in  this 
case  is  Pll) . If  the  first  term  of  the  expression  qualifies 
the  logical  block,  th«  ANY  term  is  never  examined.  By  this 
rule,  subset  3 in  logical  block  1 is  not.  flagged.  If  the 
first  term  fails  to  qualify  at  least  one  subset,  the 
ANY  term  is  evaluated.  Those  subsets  qualified  by  the 
ANY  term  will  be  flaqged.  In  this  example,  P12  qualifies 
subset  2 in  logical  block  2;  therefore,  the  subset  is 
flagged. 

Example  8B  (with  SUBSCAN  option) 

IF  Pll  OR  ANY  P12 . 


Logical 

Slac*. Subset  £11 


Flags  After 

Scan  on  Pll  P 12 


1 

1 

1 

1 

2 

2 


1 

2 

3 

4 
1 
2 


T 

T 

F 

F 

F 

F 


F 

T 

T 

F 

F 

T 


Comment: 


This  illustrates  that  IF  Pll 


Logical 

Sloc£ Subset  £11 

1 1 T 

1 2 T 

1 3 F 

1 4 F 

2 1 F 

2 2 F 


Flags  After 
Scan  on  Pll 

* 

* 


Flags  After 
£12  _Sc§Ln_on_Pi2_ 


F 

T 

T 

F 

F 

T 


* 


* 
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Comment:  The  use  of  SUBSCAN  forces  normal  subset  scanning 

and  becomes  exactly  the  sane  as  example  2. 


Example  9 


IF  Fa  AND 

Pll  AND 

P21  AND 

P12  AND  P22. 

(Set  1) 

(Set 

2) 

Sunset 

Pll 

P12 

Ilia 

P21 

P22 

Flag 

1 

T 

T* 

* 

T 

T 

* 

2 

T 

? 

* 

T 

P 

* 

3 

p 

T 

* 

F 

T 

* 

4 

F 

F 

F 

Comment:  Crossing  set  boundaries  causes  the  system  to 

evaluate  the  terms  of  the  expression  independently.  The 
conditional  is  evaluated  as  if  it  were  expressed  in  either 
of  the  following  formats: 

IF  AND  Pll) 

AND  ( P2 1 AND  P12) 

AND  *>22. 


IF  P X AND  ANY  Pll 

AND  ANY  P21  AND  ANY  P12 

AND  ANY  P22. 


Three  of  the  four  ways  in  which  the  system  can  be  forced  to 
evaluate  the  terms  of  an  expression  independent  from  the 
other  terms  in  the  subset  have  been  illustrated.  These  are: 
crossing  set  boundaries,  the  use  of  parentheses  (explicit  or 
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implied)  , and  the  uspt  of  the  ANY  modifier.  The  fourth  way 
will  be  defined  and  illustrated  in  the  discussion  of  the 
FURTHER  statement,  section  2.4.2. 4. 

The  following  examples  illustrate  various  forms  of  the 
IF  statement. 

Example  1 

IF  BEQPT  EQ  F-l£5  AND 
HEPSD  EQ  6HE0PC. 


Comment:  This  request  is  for  all  units  having  fully 
operational  F-lj>5s  as  their  major  equipment.  The  program 
selects  the  appropriate  records  by  checking  the  number 
contained  in  the  major  equipment  possessed  field  against  the 
number  in  the  number  operational  field. 

Example  2 

IF  HIER  3/3  EQ  . 


Comment:  The  user  may  specify  a partial  field  by  following 

the  field/group  mnemonic  with  the  high-  and  low-order 
positions  of  the  partial  field.  The  high-  and  low-order 
positions  are  separated  by  a slash. 

Example  3 

IF  SERV  EQ  ARMY, NAVY. 

Comment:  In  most  files  there  are  some  fields  which  contain 

coded  data  values.  The  RASP  retrieval  does  not  require  that 
coded  data  values  be  stated  in  their  coded  form  unless  the 
relational  operator  being  used  is  CONTAINS.  The  retrieval 
parameters  will  be  converted  to  their  coded  fora  if  a 
• subroutine  or  table  was  specified  by  the  file  format  table. 
For  example,  the  values  for  ARMY  and  NAVY  might  be  carried 
as  N and  N in  the  SERV  field.  The  retrieval  car  be  written 
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as  above  if  the  Service  Code  Conversion  Table  RCHDS  is 
specified  in  the  file  format  table  for  input  conversion. 

Example  4 

IF  SERV  # RCHDS#  EQ  ARMY,  NAVY, 


Comment:  The  RASP  component  can  also  be  told  to  convert 
data  values  by  a particular  subroutine.  By  preceding  or 
following  th<»  relational  operator  with  the  name  of  a 
subroutine  enclosed  in  pound  signs  (*)  the  conversion  can  be 
forced.  In  the  preceding  example,  RASP  is  forced  to  convert 
the  data  values  by  table  RCHDS,  even  though  HCNDS  may  or  may 
not  nave  been  specified  by  the  FFT. 

When  Index  Processing  is  used,  the  data  values  in  the 
retrieval  statements  are  compared  with  the  field  values  in 
the  Index  Data  Set.  The  values  may  be  compared  as  they  are 
submitted,  they  may  be  converted  from  an  external  format  as 
specified  in  the  FFT,  or  they  may  be  converted  to  an 
internal  data  file  format  by  a subroutine.  The  values  may 
be  converted  from  external  format  to  a file  format  as 
specified  in  the  FFT  Element  Descriptor  Records,  and  in 
addition  converted  from  the  file  format  to  an  index  format 
by  a conversion  subroutine  specified  at  Index  Specification 
time;  or,  the  values  may  merely  be  converted  to  an  index 
format  by  a conversion  subroutine  without  first  being 
converted  to  an  intermediate  file  format.  Conversion  by 
subroutines  specified  during  Pile  Structuring  or  Index 
Specification  will  be  automatic. 

It  is  possible  to  produce  multiple  values  from  one  input 
entry.  That  is,  a conversion  subroutine  may  generate  search 
value  "synonyms."  If  multiple  values  are  produced,  the 
relational  operator  must  be  EQUAL  (or  a valid  synonym) . If 
not.  Index  Processing  will  be  negated  for  the  clause.  For 
each  entry.  Index  Processing  will  construct  a clause  (field 
EQUAL  value)  and  connect  them  by  "OR". 

The  user  may  specify  the  use  of  a subroutine  by 
enclosing  it  in  pound  signs.  This  explicit  subroutine 
conversion  refers  to  external-to-internal  data  file  format 
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conversion  only.  Conversion  from  data  file  format  tc  Index 
Data  Set  format  cannot  be  overridden,  either  at  *ile 
maintenance  or  retrieval  times. 

Example  5 

IF  SERV  #*  EQ  A,  N. 


Comment:  External-to- internal  (but  not  internal  to  Index 
Data  Set  format)  subroutine  conversion  may  be  suppressed  by 
writing  the  double  pound  sign  (M)  either  before  or  after 
the  relational  operator.  Data  values  will  be  compared  as 
they  are  submitted  with  data  file  values,  but  will  be 
converted  by  the  routine  indicated  (optionally)  as  Index 
Specification  for  comparison  with  Index  Data  Set  values. 

Example  6 


IF  SERV  EQ  # PCNDS#  ARMY, NAVY 
VSPCSVI  'COAST  GUARD'. 


Comment:  When  multiple  data  values  are  used,  it  is  possible 
to  specify  a maximum  of  two  conversion  routines  for  data 
values  in  the  same  clause.  These  may  consist  of  the 
combinations  formed  by  any  two  of  the  following:  default  to 
the  F FT,  special  conversion  routine,  and  suppression  of  the 
subroutine  conversion.  When  a particular  mode  of  conversion 
is  specified,  it  applies  to  all  subsequent  values  of  the 
clause  until  it  is  replaced  by  another  conversion  routine. 

Example  7 

IF  RADTG  BT  68031517(10  AND 

6804  012300. 


Comment:  In  this  example,  one  BT  (BETWEEN)  operator  is  used 
to  retrieve  the  record  for  those  units  which  will  attain 
expected  combat  readiness  between  (and  including)  1700  hours 
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on  15  March  1Q68  and  2199  hours  on  1 April  1968.  The  two 
valuQs  may  b“  linked  by  the  word  AND  or  by  a slash. 

Example  6 


IF  POINT  CTP  485lN0p22|7E/225. 


Comment:  The  CIP  (Circle  Search)  relational  operator  is  used 
to  test  if  a point  falls  within  a radius  of  225  nautical 
miles  of  Palis,  France. 

The  coordinate  may  b*»  expressed  in  11-  or  15-character 

format. 

Example  9 


IF  MEFNT  OVP 

4 9 0r0'N0p65  0rE/4  94|?Vpp615E/4945N0fj)r2  20E/48??N|Jrp220E. 

Comment:  This  illustrates  the  use  of  the  polygon  search 

capability  to  locate  uni*s  whose  major  equipment  is  deployed 
within  a selected  area.  MEPNT  is  a periodic  field  which 
contains  the  deployment  coordinates  in  11-character  format. 

Example  19 

IF  A'r  ACH  SQ  LANT,  EUR , PAC,  SAC 
AND  MECL  ME  AK,  MT  A,  MTY . 


Comment:  This  condition  is  true  if  the  unit  is  attached  to 
the  atlantic,  European,  Pacific,  or  SAC  Commands,  and  it 
does  not  possess  major  equipment  in  the  coded  categories 
AK,  MT  A,  or  M'rY.  Use  of  multiple  data  values  instead  of 
multiple  conditions  makes  the  retrieval  more  efficient. 
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Example  11 

IF  UNTYP  EQ  24VCS,  24VSS. 
is  valid  but  the  following  is  not  permitted 
IF  ONTYP  EQ  ?4V$C,  24VSS. 


Comment:  When  using  multiple  data  values  and  th°  dollar 

sign  ($)  feature,  all  data  values  must  have  the  same 
pattern.  Moreover,  the  data  values  must  not  have  an 
embedded  dollar  sign.  This  feature  is  not  applicable  for 
the  CONTAINS  relational  operator. 

Example  12 

IF  ATACH  EQ  EUR 

AND  MECAP  EQ  D AND  METSY  EQ  GH 
AND  ANY  METRY  EQ  IT. 


Comment:  This  conditional  is  designed  to  retrieve  units 

attached  to  the  European  Command  which  have  particular 
weapons  in  Nest  Germany  and  which  also  have  any  major 
equipment  in  Italy.  Since  all  terms  of  the  expression  are 
in  an  AND  relationship,  all  terms  must  be  satisfied.  ATACH 
is  in  the  fixed  set  while  MECAP  and  METRY  are  both  in 
Periodic  Set  1. 

Example  13 

IP  ATACH  EQ  SAC  AND 

((GEPOL  EQ  NA  AND  CNTRY  NE  CN  AND  HEDEP  EQ  •*•) 

OR  (MEPOL  EQ  NA  AND  METRY  NE  CN  AND  HEDEP  EQ»  JM* ) ) 
AND  UIC  EQ  J$,  MS. 
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Comment:  This  illustrates  the  use  of  nested  parentheses. 
The  conditional  requests  logical  blocks  for  units  whose 
status  is  reported  by  the  Strategic  Air  Command.  The  unit 
must  be  located  in  the  North  American  Continent,  but  not  in 
Canaaa,  and  have  no  major  equipment  deployed;  or  the  geo- 
political area  in  which  the  unit  may  be  deployed  must  be  in 
the  North  American  Continent,  but  not  in  Canada,  and  it  must 
not  have  major  equipment  deployed  currently.  In  either 
case,  the  unit  identification  code  must  begin  with  the 
letter  J or  n. 

2.  4.2.  3.2  Condition  Clauses  and  Secondary  Indexing 

Sections  1.1,  Secondary  Indexing,  and  1.3,  System  Flow, 
described  under  what,  conditions  Index  Processing  is  invoked 
by  RASP.  This  section  explains  how,  once  invoked.  Index 
Processing  determines  if  the  indexing  information  about  the 
file  can  be  utilized  to  direct  RASP  in  accessing  the  data 
records. 

Index  Processing  bases  its  decision  cn  the  presence  of 
an  indexed  field  in  at  least  one  "must-satisf y"  clause  of 
the  retrieval  that  does  not  use  the  CONTAINS  relational 
operator  and  is  not  an  ASSENT  conditional  clause.  A must- 
satisfy  clause  is  defined  as  a clause  whose  condition  must 
be  true  in  the  data  record  in  order  for  that  record  to 
qualify  for  retrieval,  whether  a clause  is  in  the  must- 
satisfy  state  or  not  depends  on  how  the  retrieval  is 
written.  Therefore,  the  decision  to  utilize  index 
information  or  not  is  always  based  on  the  dynamic  structure 
of  a retrieval  at  run  time. 

The  oasic  criterion  in  deciding  whether  a clause  is 
must-satisfy  or  not  is  if  the  clause  (or  string  or  group  of 
clauses)  is  connected  to  a clause  of  equivalent  logical 
level  by  AND.  Connection  by  AND  ensures  that  the  clause 
condition  must  be  satisfied  in  order  to  retrieve  the  record. 
Connection  by  OR  gives  the  processor  a choice  of  terms  by 
which  to  qualify  the  record.  Example: 

IF  CNTRY  EQUAL  US. 

IF  CNTRY  EQUAL  US  AND  NEQPT  EQUAL  TANK. 
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Comment:  In  each  of  these  statements,  the  clause  CNTFY 

EQUAL  US  is  a must-satisf y clause,  because  this  condition 
must  be  true  in  order  to  retrieve  the  record. 

Contrast  the  above  examples  with  this: 

IF  CNTRY  EQUAL  US  OR  SEPV  EQUAL  ARMY. 

Comment:  In  this  case,  CNTFY  EQUAL  US  is  not  in  the  must- 

satisfy  state.  If  this  condition  is  not  true,  RASP  can 
still  qualify  the  record  if  SEPV  is  equal  to  APMY, 
irrespective  of  the  field  CNTRY  contents. 

2.  4.  2.  3.2.1  TEST360  Indexes 

Refer  to  Volume  II,  File  Structuring,  Section  3.3, 
Sample  File  Structure  Job,  for  a description  of  the  TEST360 
file.  Note  that  SERV  and  CNTRY  are  fixed-field  indexes,  and 
NEDDT  and  METRY  are  Periodic  Set  1 indexes.  PLRT,  a 
periodic  field  in  Set  3,  and  SPCODE,  a periodic  field  in  Set 
5,  complete  the  list  of  indexes. 

2. 4. 2. 3. 2. 2 Examples  Using  Indexed  Fields 

In  these  examples,  the  operator  is  EQUAL,  however,  any 
valid  operator  except  CONTAINS  or  ABSENT  could  be  used.  Any 
index,  fixed  or  periodic,  may  be  used.  Qualification  is  at 
the  data  record  level,  not  at  set  level. 

Example  1. 

IF  CNTRY  EQ  GY. 

Comment:  This  example  shows  a retrieval  with  one  clause. 
Only  the  records  whose  field  CNTRY  equals  GY  will  be  present 
as  candidates.  In  this  example,  of  course,  all  candidates 
are  also  qualifiers. 

Example  2. 

IP  PERS  GT  10000  AND  CNTRY  EQ  UK. 
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Comment:  Each  clause  is  a must-satisfy  clause.  That  is, 
PEPS  must  have  a value  greater  than  10000  ai)d  in  addition 
the  country  must  equal  OK.  As  CNTRY  is  indexed,  the  search 
for  qualifying  records  can  be  restricted  to  those  records 
whose  field  CNTPY  contains  the  value  UK. 

Only  these  records  would  be  searched  in  detail  to  find 
the  qualifying  records;  i.e.,  records  whose  field  PEPS 
contains  a value  greater  than  10000. 

Example  3. 

IF  CNTRY  EQ  GY  OR  CNTRY  EQ  FP. 

Comment:  The  search  would  be  restricted  to  records 

containing  GY  or  FP  in  the  field  CNTRY. 

Example  4. 

IF  CNTRY  EQ  GY  OR  PERS  GT  10000  AND  CNTRY  EQ  UK. 

Comment:  Records  containing  GY  as  the  CNTRY,  or  records 

containing  UK  as  the  CNTRY  and  more  than  10000  in  PERS  would 
qualify.  Index  Processing  would  restrict  the  search  to 
records  carrying  GY  or  UK  in  CNTRY. 

Example  5. 

IF  (CNTRY  EQ  GY  OR  CNTRY  EQ  UK)  AND  PERS  GT  10000. 

Comment:  Although  the  logic  of  this  exaaple  would  restrict 

qualifying  records  to  those  with  GY  or  UK  in  CNTRI  and  PERS 
greater  than  10000,  Index  Processing  would  present  the  sawe 
records  as  in  example  4. 


Example  o. 

IF  (SERV  EQ  ARNY  AND  UNRDY  EQ  A)  OR  (REQPT  EQ  A AND 

METRY  EQ  US)  . 

Comment:  In  each  parenthetical  group  an  indexed  field  is 

referenced  in  a must-satisfy  clause.  Since  the  qualifying 


66 


Z2 


RETRIEVAL  AND  SORT  PPOCESSOP  (RASP) 


records  could  contain  either  combination  of  values  as 
expressed  in  each  group,  retrieval  must  search  all  records 
in  which  SERV  equals  ARMY  or  RETRY  equals  US.  Both  could  of 
course  be  present  in  one  record,  but  Index  Processing  would 
only  be  concerned  with  the  either/or  case.  All  other 
records  would  be  excluded  from  the  detailed  search. 

Example  7. 

IF  UNTYY  NE  ARTL  AND  (SERV  EQ  ARMY  OR  RETRY  EQ  US)  AND 

UNTYZ  EQ  X. 

Comment:  The  logic  of  this  example  would  restrict  the 

qualifying  records  to  those  whose  UNTYY  field  was  not  ARTL, 
and  whose  UNTYZ  field  was  X.  In  addition,  the  SERV  field 
must  equal  ARHY  or  the  RETRY  field  must  equal  US.  As  the 
group  is  a must-satisfy  group,  one  clause  or  the  other  must 
be  true  in  order  for  *he  data  record  to  qualify.  Therefore, 
Index  Processing  would  determine  that  only  records  whose 
field  SERV  contained  ARHY  or  whose  field  RETRY  carried  US 
could  possibly  qualify.  In  this  manner,  all  other  records 
would  be  eliminated  from  the  detailed  search. 

2. 4. 2. 3.3  ABSENT  Conditional  Clause 

Hhereas  the  standard  conditional  clause  described  in 
section  2.4. 2.3.1  provides  record  qualification  based  on  the 
contents  or  at  least  the  existence  of  certain  fields  in  the 
records,  the  ABSENT  conditional  clause  provides  the 
capability  to  qualify  records  strictly  on  the  basis  of  the 
absence  of  a specific  periodic  or  variable  set.  This  clause 
causes  tne  referenced  set,  identified  by  a field  or  group 
nane  from  that  set,  to  be  examined.  If  no  subset  exists  for 
the  record,  the  condition  is  true.  This  clause  must  be  used 
in  conjunction  with  field  names  or  group  names  from  periodic 
or  variable  sets.  The  field  name  or  group  name  used  serves 
as  an  indication  of  the  particular  set  being  referenced. 
Secondary  indexing  is  not  applicable  to  this  clause  type. 

The  format  of  the  ABSENT  conditional  clause  is: 
field  name 

group  name  [NOT]  ABSENT 
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where 

Field  name,  -group  name(required)  - is  either  a field 
name  or  a group  naie  from  the  periodic  or  variable  set 
which  is  to  be  examined. 

NOT (optional)  - reverses  the  truth  value  of  the  ABSENT 

operator . 

ABSENT (required)  - is  the  operator  which  identifies  the 
clause  and  is  used  to  examine  the  set  referenced  to  see 
if  it  exists  in  the  record. 

Note:  Sorting  of  records  which  qualify  by  means  of  the 
ABSENT  conditional  clause  must  not  involve  fields  from  the 
set  in  question.  See  section  2. 4. 2. 3. 3.1, 

Example  1 

IF  LOC  EQ  PARIS  AND  MEQPT  ABSENT. 

A record  would  qualify  if  the  value  of  the  fixed  set 
field  LOC  were  PARIS  and  there  were  no  subsets  in  periodic 
set  one.  Periodic  set  1 is  referenced  by  specification  of 
the  field  name  MEQPT  which  is  defined  in  the  FFT  for  the 
file  as  a field  from  set  1. 

Example  2 

IF  HEPS  D NOT  ABSENT. 

This  request  is  for  all  records  where  there  is  at  least 
one  occurrence  of  a subset  in  periodic  set  1.  Qualification 
with  the  ABSENT  operator  is  at  the  record  level,  and 
flagging  of  the  subsets  is  not  accomplished  with  the  ABSENT 
conditional  clause. 

2. 4.  2.  3.  3.1  ABSENT/SORT  Restrictions 

Care  must  be  exercised  when  attempting  to  sort  on 
periodic  tields  from  set  involved  in  an  ABSENT  clause.  The 
ABSENT  clause  qualifies  records  based  on  the  absence  of  a 
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periodic  set  and;  therefore  no  subsets  are  flagged. 
However,  sorting  on  p«rodic  fields  reguires  that  at  least 
one  subset  be  flagged.  These  two  operators,  when  combined, 
cancel  each  other  and  cause  those  records  which  qualified 
based  on  ABSENT  logic  to  be  eliminated  from  the  QPT.  This 
situation  might  arise  in  a case  where  records  are  to  be 
retrieved  regardless  of  the  presence  of  a periodic  set;  yet, 
if  the  set  is  present  sorting  is  to  take  place  on  a field  in 
the  set.  The  following  is  an  example  of  combining  ABSENT 
with  periodic  sortinq. 

IF  LCC  EQ  PAPIS 
AND  MEQPT  EQ  JMEQPT. 

SORT  OIC,  MEQPT. 

IF  LOC  EQ  PARIS 
AND  MEQPT  ABSENT. 

SORT  OIC,  • • . 

In  this  example  it  is  desired  to  retrieve  all  records  which 
have  the  value  PARIS  in  the  field  LOC.  Additionally,  if  the 
periodic  set  containing  the  field  MEQPT  is  present,  the 
field  is  to  be  used  in  the  SORT  statement.  The  first 
IF/SORT  statements  retrieve  the  records  for  PARIS  with  MEQPT 
present.  The  second  IF/SORT  statements  retrieve  those  PARIS 
records  where  MEQPT  is  not  present.  MEQPT's  position  in  the 
sort  key  if  filled  with  a literal  containing  blanks.  (For 
a description  on  the  SORT  statement  see  section  2. 4. 3.1). 

2. 4. 2. 3. 4 FUNCTION  Operator 

The  FUNCTION  Operator  is  a conditional  clause  within  the 
IF  or  FURTHER  conditional  statement.  It  is  normally 
preceded  and  followed  by  one  of  the  logical  connectors  in 

the  statement.  The  use  of  the  FUNCTION  Operator  is 

designated  by  the  keyword  PUNCTION,  followed  by  the  name  of 
the  function  (the  user's  subroutine  which  may  be  enclosed  in 
pound  (*)  signs) . All  terms  following  the  function  name  and 
preceding  the  next  logical  connector  or  the  end  of  the 

statement  are  considered  as  part  of  the  parameter  list  to 

the  function  subroutine.  The  parameters  may  consist  of 
field  names,  literals  and  system- provided  work  areas. 
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Field  names  must  be  designated  by  prefixing  the  field 
name  with  an  ampersand  character.  Within  a parameter  list, 
fields  may  be  referenced  which,  belong  to  the  fixed  set  and 
cne  periodic  set,  but  not  to  two  different  periodic  sets. 

System- provided  wort  areas  will  be  designated  by  the 
system  labels  W0RK1  through  W0RK5.  Ho  distinction  is  made 
as  to  whether  a work  area  is  input  to  or  outpu*  from  the 
subroutine. 

Any  item  in  the  parameter  list  which  is  not  a system 
work  area  or  is  not  prefaced  with  an  ampersand  character  is 
processed  as  a literal.  Liberals  containing  embedded  blanks 
or  commas  must  be  enclosed  in  quotes,  and  literals  prefaced 
with  a plus  or  minus  sign  (♦  or  -)  must  also  be  enclosed  in 
quotes. 

Partial- f ield  notation  or  user  subroutine  conversion 
will  not  be  allowed  with  items  in  the  parameter  list. 

Example 

IF... AND  FHNCTION  GCD , fiPOI NT , 6JT7 5N1 2 323 E, 900, GT, 
WORK  1 OR.  . . 

Comment:  Assume  that  GCD  is  a user-written  subroutine  which, 
qiven  two  latitude/longitude  points,  will  compute  the 
distance  between  the  * wo  points  and  compare  it  to  a given 
distance.  It  th°n  will  set  the  true/false  indicator 
according  to  the  given  condition.  The  computed  distance 
will  be  placed  in  a designated  work  area.  The  order  of 
parameters  is  Point  1,  Point  2,  distance,  qualifier  and  work 
area. 

In  this  example.  Point  1 is  a data  file  field  POINT. 
Point  2 is  a user-designated  point  SJ/TSNl  2535E.  Note  that 
for  coordinates  in  a parameter  list,  conversion  to  internal 
form  is  not  automatic.  The  designated  distance  is  and 
to  qualify,  the  computed  distance  must  satisfy  the  condition 
GT.  Note  here  that  GT  is  a requirement  of  the  subroutine 
GCD.  To  RASP,  GT  is  a literal  value  to  be  entered  as  a 
parameter  to  GCD.  The  computed  distance  would  be  placed  in 
the  system- provided  work  area  W0RK1. 
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RASP  only  provides  an  interface  to  the  user-written 
function  subroutine.  The  number  of  parameters,  the  order  of 
parameters,  whether  parameters  can  be  omitted,  and  invalid 
parameters  (to  the  subroutine)  are  all  functions  of  the 
subroutine.  RASP  provides  the  data  and  control  for  the 
subroutine  in  the  ordar  in  which  they  appear  in  the  query. 
If  the  subroutine  will  allow  a variable  number  of 
parameters,  omission  within  a parameter  list  cannot  be 
denoted  by  use  of  the  double  comma.  To  omit  a parameter 
within  the  list  which  is  positional  in  nature,  an  omit  code 
which  is  recognized  by  the  subroutine  must  be  used. 

There  are  several  rules  or  restrictions  which  the  user 
must  follow  to  use  th<*  FUNCTION  Operator.  Basically,  the 
FUNCTION  Operator  and  any  correlation  between  subroutine 
requirements  and  designated  input  are  the  user's 
responsibility.  If  the  following  rules  are  heeded,  there 
should  be  little  problem  using  the  FUNCTION  Operator. 

a.  A double  comma  cannot  be  used  to  indicate  omission 
of  a parameter. 

b.  Parameters  must  be  designated  in  *-he  order 

prescribed  by  the  subroutine. 

c.  Literal  values  in  the  parameter  list  are  subroutine 
related  and  not  data  field  related;  thus,  there 
will  not  be  any  automatic  conversion  by  subroutines 
of  literals  on  input. 

d.  A literal  containing  embedded  blanks  or  commas,  or 
a literal  prefaced  with  a plus  or  minus  sign,  must 
be  enclosed  in  quotes. 

e.  A literal  containing  any  nonnumeric  character  will 
be  passed  to  the  function  subroutine  as  EBCDIC 
characters;  this  includes  signed  numeric  values 
also,  because  the  plus  and  minus  signs  are  no' 
interpreted  as  numeric  characters. 

f.  A literal  containing  all  numeric  characters  will  be 
converted  to  a binary  value  prior  to  being  passed 
to  the  function  subroutine.  Enclosure  of  an  all 
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numeric  value  in  quotes  will  not  prevent  that  value 
from  being  converted  to  binary;  i.e.,  a literal 
must  contain  a nonnumeric  character  to  be  passed  to 
the  function  subroutine  as  an  alpha  literal. 

g.  Data  file  field  names  must  be  prefixed  with  an 
ampersand . 

h.  The  parameter  list  to  the  FUNCTION  Operator 
subroutine  cannot  contain  the  word  AND  or  OR. 

2. 4. 2. 3. 5 FUNCTION  Operator  Usage  by  Index  Processing 
Analyzer  Routines 

The  FUNCTION  operator  parameter  string  will  be  examined 
to  determine  if  a data  file  field,  or  fields  (a  data  field 
name  must  be  prefixed  by  an  ampersand),  is  present.  If  so, 
and  any  field  so  referenced  is  indexed.  Index  Processing 
will  be  invoked.  If  no  field  name  is  given  in  the  FUNCTION 
operator  parameter  string,  or  no  field  is  an  index  field, 
index  usage  will  not  be  possible  for  that  clause.  Only  one 
indexed  field  per  function  clause  (the  first  one 
encountered)  can  trigger  index  usage.  Any  other  indexed 
fields  are  treated  as  nonindexed  fields  in  the  analysis. 

The  indexed  field  us»d  in  a FUNCTION  operator  clause 
must  have  an  analyzer  routine  specified  for  it.  An  analyzer 
routine  is  designated  for  a field  in  an  Index  Specification 
run  (reference  Volume  II.  File  Structuring).  Tha  purpose  of 
the  analyzer  routine  is  to  analyze  the  FUNCTION  operator 
parameters  for  Index  Processing.  The  analyzer  routine  will 
return  a value  (or  values)  which  Index  Processing  will  use 
as  arguments  when  searching  the  field's  index  information  in 
the  Index  Data  Set.  This  search  is  conducted  in  an  "equal" 
relationship  only. 

Index  Processing  cannot  determine  how  the  FUNCTION 
operator  parameters  interrelate;  this  must  be  done  by  the 
analyzer  routine.  Therefore,  if  no  analyzer  routine  is 
specified  for  any  index  field.  Index  Processing  will  be 
negated  for  the  entire  FUNCTION  operator  clause. 
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Index  Processing  only  provides  an  interface  to  the  user- 
written  analyzer  subroutines,  exactly  as  RASP  provides  the 
interface  to  a Function  subroutine.  All  conditions,  rules, 
and  restrictions  regarding  Function  subroutines,  as 
described  in  Section  2. 4.2. 3. 4,  FUNCTION  Operator,  above, 
apply  to  an  analyzer  subroutine.  Section  2.8,  Writinq  an 
Analyzer  Subroutine,  provides  information  for  calling 
seguence  and  parameters  needed. 


2. 4. 2. 3. 6 Conversion  Su fcroutine/Tables 

The  purpose  of  a conversion  routine  is  to  convert  a data 
file  value  to  the  format  desired  for  the  Index  Data  Set. 
This  function  is  designated  during  Index  Specification  and 
is  performed  during  Index  Maintenance  and  Index  Processing. 
It  cannot  be  overridden. 

A conversion  routine  is  written  following  the  normal 
subroutine  conventions,  not  those  for  an  analyzer  routine. 
A return  code  of  'S*  indicates  successful  execution;  a 
return  code  of  'H'  indicates  an  unsuccessful  execution.  Any 
other  code  will  cause  the  Secondary  Indexing  routines  to 
pass  control  back  to  the  routine  (with  a fresh  copy  of  the 
parameter  string)  for  further  conversion.  This  allows  a 
conversion  subroutine  to  generate  synonyms  for  data  file 
values  to  reside  on  the  Index  Data  Set.  The  routine  must 
save  its  own  registers  and  status  before  returning  control. 
It  indicates  completion  (i.e.,  do  not  return  any  more)  with 
a code  of  • S*. 

2. 4. 2.4  FURTHER 

The  FURTHER  statement  is  optional.  It  is  an  extension 
of  the  IF  statement  logic  and  is  connected  to  it  by  an 
implicit  AND  or  an  explicit  AND  or  OR.  It  allows  the  user 
to  state  the  basic  conditions  for  retrieval  in  the  IF 
statement  and  to  state  additional  conditions  in  a FURTHER 
statement.  Any  other  FURTHER  statements  before  the  next  IF 
statement  imply  the  conditions  imposed  by  the  first  IF 
statement  but  not  those  expressed  in  the  intervening  FURTHER 
statement. 
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The  format  of  the  FURTHER  statement  is  the  same  as  the 
IF  statement  except  - that  it  begins  with  the  statement 
identifier  FURTHER  instead  of  TFf  and  the  word  FURTHER  can 
be  followed  by  the  noise  word  IF  or  the  logical  connector 

AND  or  OR. 

The  following  examples  illustrate  various  uses  of  the 
FURTHER  statement. 

Example  1 

IF  UNLVL  SQ  SQ  AND  flEDEP  EQ  0 
AND  PEQPT  NP  0 
AND  MECL  1/1  EQ  H,  H . 

SOFT/1  ATACH,  SERV,  UNLVL,  *AA',  MECL  1/1. 

FURTHER  TF  FUTI  NE  ##  • '. 

SORT/2  PUTT,  SERV,  UNLVL,  *AA»,  HECL  1/1. 

Comment:  This  example  illustrates  the  use  of  a single 
FURTHER  statement.  Records  meeting  the  conditions  of  the 
basic  I?  statement  will  produce  one  group  of  sort  keys.  In 
addition,  the  Future  Command  field  (FUTI),  i.e.,  the  Command 
to  which  the  unit  has  a pending  transfer,  will  be  tested. 
Records  meeting  the  combined  IF  and  FURTHER  conditions  will 
produce  i second  group  of  sort.  keys. 

Example  2 


IF  ATACH  EQ  EUR  AND  SERV  EQ  W 
AND  CNTPY  EQ  GY. 

FURTHER  AND  UNTYP  EQ  17HB$, 
17HC$,  17HD  $,  17HE$, 

AND  UNLVL  EQ  BN  AND 
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MEDEP  EQ  0. 

SORT  'A*,  UNLVL, 

UNTYP, 

CNTRY. 

SELECT  HEQPT/F. 

FURTHER  UNTYP  EQ 

1*JH8$, 

1 7WE$, 

1 7HF $ AND  UNLVL  EQ 

BN. 

SORT  'B',  UNLVL, 

UNTYP, 

CNTRY. 

SELECT  HEQPT/F. 

Comment:  This  example  illustrates  the  use  of  the  FURTHER 
statement  to  produce  two  groups  of  answers  in  the  same 
answer  set  sorted  by  unit  organization  level,  type,  and  the 
country  to  which  it  is  assigned,  A literal  has  been  placed 
in  the  high-order  position  of  each  group  of  answers.  The 
output  components  can  test  for  changes  in  the  high-order 
position  of  the  sort  key  to  condition  such  output  actions  as 
page  eject,  change  in  page  labels,  accumulated  totals  for 
each  group,  and  an  accumulated  grand  total. 


Example  3 

FILE  TEST 3 6)8  . 

TITLE  RV72R/6803  TEFOPP  ADD. 
IF  ATACH  EQ  EUR  AND  SERV  EQ  J 
AND  UNLVL  EQ  WG, SQ . 

PURTHEP  IF  HEORN  NE  9 . 

SORT/1  CNTRY , LOC,  UNC. 

SELECT  HEQPT/F. 
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FURTHER  IF  MEORN  EQ  0. 
SORT/2  CNTRY,  LOC,  UIC. 
SELECT  MEQPT/F. 


FUPTHFR  IF  MEORC  NE  0. 

SOFT/3  CNTRY,  LOC,  UNIC. 

SELECT  MEQPT/F. 

FURTHER  IF  MEORC  EQ  0. 

SORT/4  CNTRY,  LOC,  UIC. 

SELECT  MEQPT/F. 

Comment:  This  illustrates  the  capability  of  the  system  to 

retrieve,  select,  and  sort  periodic  information  into  several 
answer  groups  according  to  classes  of  data  in  the  file.  In 
this  case,  all  results  will  be  tabulated  with  one  PIT  called 
the  Test  File  Operational  Readiness  Report  (TEFORR) . 

Example  4 

FILE  TESTFIL. 

TITLE  TESTI/1. 

TF  ATACH  PQ  EIJP  AND  SERV  EQ  J AND  MEQPT  EQ  A-4C. 

SORT  * A 1 UIC  LOC. 

FURTHER  MFQPT  EQ  UH-1D. 

SORT  • B*  UIC  LOC. 

FURTHER  MFQPT  EQ  B-52. 

SORT  'C  UIC  LOC. 
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Comment:  This  example  illustrates  the  use  of  the  FURTHEP 
statement  to  force  independent  evaluation  of  terms  against 
the  same  set,  as  if  they  mere  against  different  sets.  The 
condition,  HEQPT  EQ  A-4C,  in  the  parent  I*  statement  is 
evaluated  against  subsets  in  Periodic  Set  1 separately  from 
the  scan  for  the  FURTHER  conditions,  HEQPT  EQ  HH-1D  and 
HEQPT  EQ  B-52 . Records  possessing  both  A-4C  and  UH-1D  HEQPT 
•ill  produce  sort  keys  with  the  literal  • B. ' Records 
possessing  both  A-4C  and  B-52  HEQPT  will  produce  sort  keys 
with  the  literal  'C.* 

2.4.3  Imperative  Statements 

The  imperative  statements  within  a retrieval  are  SORT 
and  SELECT. 

2. 4. 3.1  SORT 

The  SORT  statement: 

a.  Permits  the  user  to  specify  the  fields  and  literals 
which  are  to  be  used  to  sequence  the  answer 
records. 

b.  Provides  the  medium  for  assigning  labels  to  several 

I different  sequences  of  the  same  ansver  records. 

c.  provides  for  the  merging  of  answer  records  from 
•ore  than  one  IF  statement. 

d.  Provides  for  merging  answer  records  from  multiple 
files. 

f 

The  format  is: 

I 

[RIT-name]  SORT  [sort-number]  [/action  code] 

field-group  name  [partial  field]  subroutine  name 
or  or 

literal  #D# 

Note:  A literal  may  not  be  followed  by  partial  field  nota- 

tion, subroutine  conversion,  or  descending  sort. 
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where  » 

RIT-name  (optional)  --  Every  SORT  statement  with  a 
unique  RIT-name  will  produce  one  entry  in  the  Qualifying 
Record  Table  which  uniquely  identifies  the  answer  set. 
This  label,  called  the  Retrieval  ID,  consists  of  the 
(required)  4-digit  maximum  retrieval  number  and  the 

(optional)  PIT-name.  The  RIT-naae  entry  on  each  SORT 

statement  allows  the  user  to  modify  the  Retrieval  ID  for 
all  QET  entries  produced  by  a particular  SORT  and  SELECT 
pair.  ihe  pi?-name  entry  also  designates  the  name  of 
the  RIT  to  be  used  to  process  the  particular  answer  set. 
In  this  way,  the  conditional  logic  can  be  expressed 
once,  the  results  sorted  ' n'  ways,  and  the  output 
processed  by  different  RITs. 

The  user  may  override  the  RIT  specified  in  the  SORT 

statement  by  providing  a PUBLISH  statement  at  OP 

execution  time. 

If  no  PIT  name  is  provided  with  the  SORT  statement,  the 
i PIT  name  specified  in  the  TITLE  statement  is  used.  If 

a RIT  name  does  not.  appear  in  the  TITLE  statement,  the 

user  must  specify  a RIT  name  at  OP  execution  time  via 

the  OP  PUBLISH  statement. 

SORT  (required)  --  If  the  SORT  statement  is  not  used, 

records  are  presented  to  the  output  processors  in  file 

sequence.  If  the  SORT  statement  is  used,  RASP  will 
i generate  appropriate  sort  keys  found  in  three  record 

types  in  the  Qualifying  Record  Table.  The  first  of 
these  records,  the  *ile  Information  Pointer  (FIP) , 
provides  the  output  components  with  pointers  to  the  File 
Control  Records  for  files  which  have  records  in  the  QRT. 
One  FIP  record  is  generated  for  each  file.  The  second 
record  type,  the  Retrieval  Equation  Record  (RER)  , 
provides  the  linkage  between  the  user's  definition  of  an 
answer  set  and  a RASP-assigned  retrieval  code  which 
identifies  the  answer  set.  It  also  contains  a pointer 
to  the  physical  location  of  the  retrieval  source 
statements  placed  in  the  Qualifying  Data  File.  The 
output  components  use  this  pointer  to  obtain  and  print 
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the  retrieval  source  statements  which  produced  each 
answer  set.  RASP  generates  one  RER  record  for  each 
answer  set;  i. e.,  one  record  for  each  unique  retrieval 
number  and  RIT-name  combination.  RASP  also  produces  a 
third  record  type  in  the  Qualifying  Record  Tables.  This 
is  the  RASP/OP  Answer  Entry  Record  (ROAER) . It  consists 
principally  of  a sort  key  and  a pointer  to  the  fixed  set 
and  each  periodic  set  or  periodic  subset  selected. 
There  is  at  least  one  entry  for  each  Sort  and  Select 
pair  under  a qualifying  IF  or  FURTHER  in  each  batch  of 
retrievals.  At  the  completion  of  the  retrieval,  the  QRT 
is  sorted  on  information  in  the  QRT  sort  keys  so  that  it 
may  be  accessed  sequentially  by  the  output  processors. 

An  understanding  of  the  components  of  the  ROAER  sort  key 
will  enable  the  analyst  to  better  understand  the 
ordering  procedure  for  data  records.  This  sort  key  is 
shown  schematically  below. 


« • • • • m • 

. RETRIEVAL  . TYPE  . ACTION  . USER- DESIGNATED.  FILE  . CONTINUATION. 

. CODE  . CODE  . CODE  . SORT  KEY  . CODE  . CODE 


.1 A. 


FORMAT  OF  THE 

RASP/OP  ANSWER  ENTRY  RECORD  (ROAER) 
SORT  KEY 


The  high-order  position  of  the  ROAER  sort  key  contains 
the  two-byte  binary  retrieval  code  assigned  by  RASP  for 
each  unique  combination  of  retrieval  number  and  RIT 
name.  The  second  sort  key  field  indicates  the  record 
type  within  the  QRT.  The  third  sort  key  field  contains 
the  action  code  supplied  following  the  SORT  statement 
identifier.  In  function,  this  is  identical  to  the  use 
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of  a literal  in  the  high-order  position  of  the  user- 
designated  sort  key.  The  fourth  sort  field  contains  the 
sort  fields  designated  by  the  user  in  each  SORT 
statement.  The  length  of  the  designated  sort  key  may 
vary  between  answer  sets  but  may  not  exceed  210  bytes. 
The  designated  fields  specified  in  any  one 
SORT  statement  may  be  from  a fixed  set  or  one  flagged 
periodic  set  and  may  contain  one  or  eore  literals.  The 
fifth  field  contains  a program-assigned  sequence  number 
which  is  used  to  maintain  data  extracted  from  the  file 
in  the  sequence  in  which  it  appears  in  the  file.  It 
will  not  alter  the  designated  sort  because  it  is  lowest 
in  the  sort  key.  This  field  contains  the  binary  file 
code  assigned  by  RASP  and  is  used  to  link  the  file  code 
to  the  file  name  contained  in  the  Pile  Information 
Pointer  Record.  The  last  field  in  the  ROAER  sort  key 
contains  a binary  sequence  number  assigned  by  RASP  to 
ensure  correct  sequence  among  all  continuation  records. 

Succeeding  elements  of  the  ROAER  record  are  structured 
as  a variable  length  periodic  subset  consisting  of  three 
to  eight  fields.  These  fields  contain  the  number  of  the 
set  being  referenced,  the  beginning  of  the  set  or  subset 
in  the  QDF,  and  flaqging  and  subset  selection  data,  plus 
provision  for  additional  program  communication  data. 

Sort-number  (optional)  — The  sort-number,  once  used  to 
preserve  the  order  of  consecutive  SORT  statements 
toilowing  a particular  conditional  statement,  is  no 
longer  reguired.  If  used,  it  must  be  coded  as  a single 
digit  in  the  range  of  0 to  9 and  affixed  to  the  keyword 
SORT  with  no  intervening  blank. 

/Action  Code  (optional)  — The  action  code  parameter  is 
a user-assigned  3-digit  code  in  the  range  of  0 to  255 
which  is  used  to  control  the  order  in  which  the  results 
of  each  pair  of  SORT  and  SELECT  statements  are  presented 
to  op.  The  specified  arrangement  is  accomplished  by 
converting  the  operand  to  a one-byte  binary  number  and 
placing  the  result  in  the  sort  field  preceding  the  user- 
designated  sort  key  and  then  sorting  the  answer  records. 
In  function,  this  feature  is  identical  to  the  use  of  a 
literal  in  the  high-order  position  of  the  user- 
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designated  sort  key.  A literal  aay  be  used  in 
combination  with  or  in  place  of  the  action  code. 

A literal  aust  be  enclosed  in  single  guotes  but  it  nay 
not  contain  any  of  the  character  combinations  previously 
cited  as  illegal  in  a RASP  literal.  The  aaxiaum  size  of 
a literal  aay  not  exceed  210  characters. 

Field-Group  Name  (required)  --  At  least  one  field  name 
or  one  literal  must  appear  in  the  operand  of  a SORT 
stateaent.  The  order  in  which  the  fields  or  literals 
appear  indicates  the  order  in  which  the  user-designated 
sort  key  will  be  generated.  Thera  is  no  liait  to  the 
nuaber  of  fixed  or  periodic  fields  which  may  be 
specified,  but  all  periodic  fields  aust  be  froa  the  same 
set  and  that  set  aust  have  been  queried.  The  maxiaua 
nuaber  of  characters  which  aay  be  placed  in  the  user- 
designated  sort  key  field  is  210  bytes.  When  the 
aaximua  allowable  nuaber  of  user-designated  bytes  is 
exceeded,  the  retrieval  will  be  flagged  as  an  error,  and 
it  will  not  be  executed.  When  a WORK  area  (W0RK1 
through  W0RK5)  is  used  in  a SORT  stateaent,  it  will 
receive  a fixed  or  periodic  set  attribute  according  to 
the  last  usage  of  that  specific  WORK  area  in  a FUNCTION 
operator  clause.  The  set  attribute  reaains  the  same  for 
i the  WORK  area  until  modified  by  usage  in  another 

FUNCTION  operator  clause. 

Example: 

1.  IF  FUNCTION  7SUB1  6HECLQ  W0RK4 . 

2.  SORT  * A • W0FK4  MEPSD  UIC. 

3.  SORT  * B * 10RK4  MEOFC. 

4.  IF  FUNCTION  FSUB2  6PLEAC  W0RK4. 

5.  SORT  »C'  W0RK4  PLAN 

Note:  MECLQ,  HEPS D,  HEORC  are  in  Periodic  Set  1;  PLEAC, 

PLAN  are  in  Periodic  Set  3. 
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In  this  example,  WORK4  first  receives  a Periodic  Set  1 
attribute  in  statement  1.  WOFK4  can  then  be  used  as  a 
Periodic  Set  1 field  (in  combination  with  other  Periodic  Set 
1 fields,  fixed  fields,  or  literals)  in  the  following  SORT 
statements.  The  set  attribute  is  changed  to  Periodic  Set  3 
in  statement  4.  In  statement  5,  W0RK4  acts  as  a Periodic 
Set  3 field,  (outputting  one  sort  key  for  each  flagged 
subset  in  Periodic  Set  3)  . 

Ail  WORK  areas  are  independently  edited  in  the  above 
manner.  Each  is  initialized  to  a fixed  set  attribute  (once 
at  the  beginning  of  the  RASP  job,  not  for  each  TITLE) . The 
set  attribute  is  changed  to  periodic  when  a periodic  field 
is  contained  in  the  FUNCTION  clause  prior  to  the  WORK  area 
reference. 

Partial  Field  (optional)  — Partial  field  rotation  may 
follow  a field  or  group  name  and  designates  that  portion 
of  tne  field  or  group  that  is  to  be  inserted  in  the  sort 
key.  Partial  field  notation  may  not  be  applied  to  a 
literal,  coordinate  field,  or  binary  field.  It  may  be 
applied  to  fields  being  converted  by  an  output 
subroutine. 

Subroutine  Name  (optional)  — The  RASP  component  can  be 
directed  to  convert  a parameter  from  its  file  form  to 
another  form  before  the  value  is  placed  in  the  sort  key. 
This  will  not  affect  the  form  of  the  value  carried  in 
the  Qualifying  Data  File.  The  name  of  the  subroutine 
must  follow  the  name  of  the  field  to  be  operated  upon 
and  must  be  enclosed  by  pound  (#)  symbols.  RASP  will 
determine  the  maximum  output  length  produced  by  the 
subroutine  and  use  this  length  in  building  the  scrt  key. 
The  subroutine  so  specified  must  be  an  output  conversion 
subroutine  with  alpha  or  decimal  output  attributes. 

#D#  (optional)  --  The  RASP  component  can  be  directed  to 
perform  a descending  sort  on  a field  or  group.  This  is 
done  by  specifying  the  descending  sort  flag,  ID#,  after 
the  field  or  group  name.  If  no  descending  sort  flag  is 
present,  then  ascending  sort  is  assumed.  There  must  be 
at  least  one  blank  or  ccmma  immediately  preceding  and 
following  the  descending  sort  flag.  Partial  field 
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notation  nay  be  used  with  the  descending  sort 
capability;  however  subroutine  or  table  conversion  may 
not  be  used.  See  example  10  for  an  illustration  of 
descending  sort  specification.  A descending  sort  is 
accomplished  by  causing  the  two's  complement  of  the 
field  to  be  inserted  in  the  sort  key.  For  example,  if 
the  field  value  was  TANK,  it  would  be  represented  in 
binary  as: 

1110  0011  1100  0001  1101  0101  1101  0010; 

its  two's  complement  would  be: 

0001  1100  0011  11.10  0010  1010  0010  1101. 

Thus,  the  displaying  of  this  section  of  the  sort  key  in 
either  QUIP  or  OP  will  cause  nonprintable  characters 
(blank)  to  be  displayed. 

Example  1 

SORT  UIC,  PLRT. 

Comment:  Illustrates  a sort  on  Unit  ID  Code  and  Plan 

Response  Time. 


Example  2 


SORT  CNAN  1/12,  LOC  1/16,  HIER  1/19. 

Comment:  This  illustrates  the  use  of  partial  field  notation 

to  select  the  high-order  positions  in  various  fields  which 
are  to  participate  in  the  sort. 

Example  3 


SORT  CNTRY  •CNTRYSf,  LOC,  SERV,  TPNAH. 

This  illustrates  the  use  of  conversion  routine  to 
convert  the  major  sort  field  from  its  2-character  encoded 
form  to  the  full  name. 
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Example  4 

SORT  CNTRY  #CNTFYS#,  LOC  1/12,  SEHV 
# OC  MDS  # , TPNAME  1/15. 

Commtnt:  This  illustrates  the  use  of  output  conversion 

routines  and  partial  field  notation  as  applied  to  different 
fields  in  the  user-designated  portion  of  the  sort  key. 

Example  5 

IF  POINT  CIR  4306N00556E/75. 

SOFT/1  UNTLV , UNRDY,  UNAME. 

IF  POINT  CIR  4909N 00220E/60. 

SOPT/2  UNTLV,  UNRDY,  UNAME. 

Comment:  This  illustrates  the  use  of  the  action  code  field 

to  designate  which  conditional  statement  produced  the 
answer  record.  The  change  in  action  code  can  he  tested  in 
the  output  processor  and  the  result  used  to  control  a page 
breax,  additional  spacing,  header  lines,  body  lines  and 
similar  format  control  actions. 

Example  6 

IF  SERV  FQ  J,  M,  N,  R,  AND 
UNLVL  EQ  SQ  AND  MEDPE  EQ  0 
AND  MEQPT  NE  0 and  MECL  1/1  EQ  A. 

SORT  ATACH,  SERV,  UNLVL,  MECL  1/2,  • AA'. 

FURTHER  FIJTU  NE  ##  • '. 

S0RT2  ATACH,  SERV,  UNLVL,  MECL  1/2,  'BB', 

FUIU,  UIC. 
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SORT  ATACH,  SERV,  UNLVL,  MECL  1/1,  • AAA* . 

comment:  This  illustrates  several  features  of  the  RASP  SORT 
stateaent.  It  illustrates  the  use  of  a literal  in  the  low- 
order  position  of  the  sort  key  to  provide  a field  which  OP 
can  test  to  distinguish  among  groups  of  answer  records 
produced  by  the  conditional  logic.  It  illustrates  the  use 
of  the  optional  sort  suffix  number  to  designate  the  number 
of  consecutive  SORT  statements  which  apply  to  the  preceding 
conditional  logic.  It  also  shows  the  use  of  partial-field 
notation,  followed  by  a literal  to  force  a particular 
arrangement  using  the  low-order  positions  in  the  sort  key. 

Example  7 


SORT  ATACH,  SERV,  UNLVL,  MECL,  FOTU,  UIC. 

SPIOR  SORT  FUTU,  SERV,  UNLVL,  MECL  1/1. 

Comment:  This  illustrates  the  use  of  the  RIT-name  parameter 

field  to  assign  a new  Retrieval  ID  to  the  answer  records 
produced  by  the  second  SORT  stateaent. 

Example  8 


Line 

1 

TITLE  S03B B/llj73  , TOPB38R. 

Line 

2 

FILE  INSTALN. 

Line 

3 

NOTE  ANY  MILITARY  AIRFIELD  WITHIN 

Line 

4 

39  MILES  OF  METZ. 

Line 

5 

IF  POINT  CIR  4 909NPJT611E/30. 

Line 

6 

SORT/1  LOC. 

Line 

7 

NOTE  ANY  MILITARY  AIRFIELD  WITHIN 

Line 

8 

50r  MILES  OF  TOULON. 

Line 

9 

IF  POINT  CIR  43(INJ>0556E/50. 
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Line  10  SORT/2  LOC. 

Line  11  FILE  TEST360. 

Line  12  NOTE  ANY  UNITS  WITH  DUAL  WEAPON 

Line  13  CAPABILITIES,  NO  PRESENT 

Line  14  COMMITMENTS,  SOME  DEPLOYMENT  NOT  IN 

Line  15  FRANCE  AND  CAPABLE  OF 

Line  16  REACHING  THE  UNIT'S 

Line  17  DESIGNATED  STAGING  AREA  WITHIN 

Line  18  72  HOURS  — SHOW  SEPARATE 

Line  19  LISTINGS  FOR  EQUIPMENT 

Line  20  LOCATED  NEAR  METZ  AND  TOULON. 

Line  21  IF  MFTRY  EQ  FR  AND  MECAP 
Line  22  EQ  D AND  MESIC  EQ  0 AND 
Line  23  PLTPT  LE  030000. 

Line  24  FURTHER  IF  MELOC  CIR  4900N0061 1 E/30. 

Line  25  SORT/1  LOC,  PLTRT. 

Line  26  FURTHER  IF  MELOC  CIR  4300N00556E/50. 

Line  27  SORT/2  LOC,  PLTRT. 

Comment:  An  explanation  of  each  of  the  preceding  statements 
follows. 

Line  1 --  The  TITLE  statement  specifies  that  the  name  of 
this  retrieval  is  S038R,  the  retrieval  number  is  1103. 

* 

i , 
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It  will  be  processed  by  the  PIT  named  TOPB38R;  the  run 
mode  is  compile-a nd-go. 

Line  2 — This  statement  specifies  that  the  next  two 

logical  conditions  are  to  be  passed  against  the  data 
file  INSTALN. 

Lines  3,4  — This  is  a comment.  It  has  no  logic 

function. 

Line  5 --  The  POINT  field  is  tested  to  see  if  it 
contains  a coordinate  within  39  miles  of  METZ. 

Line  6 --  The  SORT  statement  puts  991  in  the  action  code 
field  of  the  sort  key  and  the  place  name  of  the  unit's 
location  in  the  user-designated  portion  of  the  sort  key. 

Lines  7,8  — The  NOTE  statement  identifier  designates 
these  lines  as  comments. 

Line  9 — The  IF  statement  tests  for  records  having 
coordinates  within  5 9 miles  of  TOULON. 

Line  19  --  The  SOFT  statement  puts  992  in  the  action 
code  field  of  the  sort  key  and  the  place  name  of  the 
unit's  location  in  the  user-designated  portion  of  the 
sort  key. 

Line  11  — This  statement  causes  the  statements  which 

follow  to  be  passed  against  the  TEST360  file. 

Lines  12  through  29  — Comments. 

Lines  21  through  23  --  The  IF  statement  tests  for 

deployment  country  of  Prance,  dual  weapons  capability, 
no  present  commitments,  and  transportation  tines  to  the 
staging  area  less  than  or  egual  to  3 days. 

Line  24  — The  FURTHER  statement  imposes  an  additional 

condition  to  the  basic  IF  statement.  It  tests  for  all 
records  hawing  coordinates  within  39  nautical  miles  of 
Metz. 
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Line  25  --  The  SORT  statement  will  cause  the  retrieved 
records  to  be  sorted  before  the  records  retrieved  by 
line  9 and  line  26.  because  of  the  /I  following  the  word 

SORT. 

Line  26  --  Another  but  separate  FURTHER  statement  is 
imposed.  The  logic  of  this  FURTHER  is  joined  by  an 
implied  AND  logical  connector  to  test  for  all  records 
having  coordinates  within  50  miles  of  Toulon. 

Line  27  --  This  SORT  statement  will  cause  the  retrieved 
records  to  be  sorted  after  the  records  retrieved  by 
lines  5,  21-24,  because  of  the  /2  following  the  word 

SORT. 


J 

I 


I 


8B 


Following  are  the  resultant  entries  in  the  Qualifying 
Record  Table  (Q.RT)  generated  for  those  data  records  which 
qualified.  They  are  shown  in  their  final  sequence. 
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Re-  User  Se- 

trieval  Type  Action  Desig-  Sort  quence  Pile  Cont. 


Code 

Code 

Code 

nated 

Key  _ 

Number  Code 

Code 

Source 

09 

Q 

1 

JOEUF 

00 

A 

0 

INSTALN 

Record 

99 

Q 

1 

JOED? 

921123 

99 

B 

0 

TEST  360 

Record 

99 

Q 

1 

JOEUF 

021485 

91 

B 

0 

TEST360 

Record 

99 

Q 

1 

METZ 

922399 

92 

B 

0 

TEST360 

Record 

99 

Q 

1 

ST  MIHIEL 

92 

A 

0 

INSTALN 

Record 

99 

Q 

1 

ST  HI  HI  PL 

911198 

93 

B 

0 

TEST  360 

Record 

99 

U 

1 

ST  MIHIEL 

989999 

04 

B 

0 

TEST360 

Record 

99 

Q 

2 

TOULON 

03 

A 

0 

INSTALN 

Record 

99 

Q 

2 

TOULON 

011853 

05 

B 

1 

TEST360 

Record 

99 

Q 

2 

TOULON 

011853 

06 

B 

1 

TEST  360 

Record 

Note:  In  merging  data  files,  it  is  sost  important  to  ascertain 
that  the  common  information  employed  for  merge  is  of  the 
same  format  and  length. 
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Example  9 


TITLE  S039R/1203. 
FILE  TEST  36)/. 


NOTE  --  ANY  UNIT  WITH  MAJOR  EQUIPMENT  MODELS  A-l, 
A-3 , A-4,  A-  5,  A-6,  A-7,  P-1  00,  F-101 
F-105  TO  BE  DEPLOYED  WITHIN  THE  NEXT  30  TO  60 
DAYS  - SEQUENCE  BY  CLASS,  TYPE  AND  DURATION. 


IF  MEMOD  EQ  A-l,  A-3,  A-4,  A-5,  A-6,  A-7,  F-100,  P-101, 
F-105  AND  MEDD"  BT  68061/68120. 

SORT  HECLQ,  MEDUR. 


Comment:  This  illustrates  a retrieval  requiring  a sort  on 
information  carried  in  the  periodic  set.  If  periodic 
sorting  is  used,  only  fields  from  one  periodic  set  (one 
which  was  tested  by  the  retrieval  logic)  may  be  specified  in 
the  SORT  statement.  when  periodic  sorting  is  utilized,  only 
fields  from  those  subsets  which  have  been  flagged  mill  be 
put  in  the  sort  key.  When  all  the  terms  of  the  IP  statement 
have  been  processed  against  a data  record,  each  subset  is 
examined  to  determine  if  it  has  been  flagged.  Vhen  a 
flagged  subset  is  found,  a ROAER  record  is  generated  which 
points  to  the  beginning  location  of  the  subset.  The  data 
from  the  field's  major  equipment  class  and  type  and  the  code 
for  major  equipment  duration  is  placed  in  the  sort  key. 
RASP  will  continue  to  check  the  subsets  for  flags  and  output 
a new  ROAER  record  each  time  a flagged  subset  is  found. 


Assume  a data  record  from  the  TEST360  file  contains  four 
subsets  in  Periodic  Set  1,  having  the  following  information 
in  the  fields  illustrated. 
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Subset 


SS&t-NSs. 

HEDDT 

MEDEP 

HEDUR 

flEfJOD 

001 

68012 

F 

P 

A-  5 

002 

68119 

G 

Q 

A- 1 

003 

00000 

SP-51 

00<* 

68031 

G 

s 

F—  1 0'? 

Subsets  (fill,  002,  and  00U  have  satisfied  the  logic 
conditions  and  will  be  flagged.  Three  POAER  records  will  be 
generated  and  each  will  contain  two  Set  Flags.  A Set  Flag 
tells  the  output  processor  the  nunber  of  the  set  to  which 
the  information  in  the  QDF  belongs.  It  also  points  to  the 
beginning  of  the  set  or  subset  placed  in  the  Qualifying  Data 
File,  indicates  any  flagging,  and  indicates  whether  the  QDF 
contains  all  or  only  selected  subsets. 

Separate  records  are  generated  for  each  flagged  subset. 
Each  of  these  records  also  contains  the  Fixed  Set  Flag  and 
tne  user-designated  sort  key  built,  using  information  from 
the  periodic  subset. 

If  periodic  sorting  were  not  specified,  the  periodic  set 
or  subset  Set  Flags  would  be  consolidated  in  the  same  record 
as  a periodic  group  conposed  of  three  fields. 

Exaaple  10 

SORT  • A • , SERV, LOC  1/3  #D#,  MEPSD, NEQPT  #D*. 

Connent:  This  illustrates  a retrieval  requiring  several 
descending  sort  specifications.  The  result  of  the  above 
specification  would  cause  an  ascending  sort  on  the  literal, 
•A*,  and  the  fields,  SERV  and  HEPSD,  and  a descending  sort 
on  the  first  three  positions  of  the  field  LOC  and  the  entire 
field  HEQPT. 
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2.4.3 .2  SELECT 

The  SELECT  statement  enables  the  user  to  designate  the 
contents  of  an  abbreviated  answer  record.  It  can  be  used 
only  to  select  periodic  sets  and  subsets  and  the  variable 
set  since  the  fixed  set  is  included  automatically . If  only 
the  fixed  set  is  desired,  a fixed  set  field  must  be  the  only 
operand. 

The  three  options  available  may  be  specified  in  any 
combination  in  the  same  SELECT  statement.  If  a set  is 
referenced  more  than  once  in  a SELECT  statement  or  if  the 
modes  are  mixed,  the  most  inclusive  output  will  be  produced. 

The  format  is 

fie  Id -name 

SELECT  field-name/P  ...  . 

f ield-name/WF 

where 


SELECT  (required)  --  Is  the  statement  identifier. 

Field-name  (required)  --  Is  the  name  of  any  field  within 
the  se*-  selected  to  compose  an  abbreviated  answer 
record.  If  used  without  a suffix,  it  selects  all 
subsets  in  the  set  regardless  of  flagging. 

/?  (optional)  --  Specifies  that  only  flagged  subsets  of 
the  referenced  set  be  included. 

/WF  (optional)  --  Specifies  that  the  entire  set  referenced 
ne  included,  but  only  if  it  contains  one  or  more  flagged 

subsets. 

. (Required)  — Is  the  statement  terminator. 


I f 
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Example  1 


IF  ATTACH  EO  NATO  AND  UNTYZ  NE  2 AND  HFCL  EQ  AS,  Hi  AND 
HEDEP  EO  9 AND  MEHOD  NE  EC-121,  TC-121. 

SELECT  HEQPT/F , PLAN. 

Comment:  MEQPT  is  in  Periodic  Set  1 and  PLAN  is  in  Periodic 

Set  3.  The  QRT  will  contain  entries  pointing  to  the  fixed 
set,  only  those  subsets  from  Periodic  Set  1 flagged,  and  all 
of  Periodic  Set  3.  A SORT  statement  is  implied  immediately 
preceding  the  SELECT  statement,  even  though  no  sort  fields 
are  designated. 

Example  2 


IF  SERF  EQ  » AND  UNTYP  EQ 
22KBA,  22JCA,  22FBA,  22FCA, 

22XCA,  22 K HA 

AND  HEHOD  EQ  CGH-13,  HGM-13,  XHGH-31. 

SORT  UNLVL,  UNTYP,  CNTRY. 

SELECT  HEQPT/F. 

Comment:  SERV  and  ONTYP  are  in  the  fixed  set  and  HEHOD  is 

in  Periodic  Set  1.  The  QRT  will  contain  entries  pointing  to 
the  fixed  set  and  the  subsets  flagged  in  Periodic  Set  1, 

Example  3 

IF  HESIC  NE  0. 

SORT  OIC,  LOC. 

SELECT  HES IC/iP. 
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Comment:  This  retrieval  will  present  all  periodic  subsets 
in  Periodic  Set  1 if  the  unit  has  any  equipment  on  special 
alert  status.  If  the  /F  modifier  were  used,  only  those 
subsets  flagged  would  be  selected.  In  either  case,  the 
fixed  set  containing  unit  identification  information  will 
be  included. 

2.5  Merged  File  Retrieval 

All  of  the  rules  which  are  applicable  to  single  file 
retrieval  can  be  applied  to  merged  file  retrieval  which  is 
the  NIPS  capability  to  interrogate  up  to  10  files  in  a 
single  job  step.  The  RASP  cataloged  procedure  has  been 
written  to  handle  up  to  three  files;  any  additional  files 
must  have  DD  statements  temporarily  added  to  the  procedure 
to  identify  them. 

Merged  file  retrieval  allows  the  user  to  guery  more  than 
one  file  and  merge  the  retrieved  data  records  through  a 
common  sort.  Choice  of  the  fields  to  be  sorted  on  for  each 
tile  is  immaterial;  however,  the  records  are  merged  together 
according  to  the  fields  chosen  for  sort  in  the  retrievals 
from  the  individual  files.  Generally,  the  fields  are 
similar  type  fields.  Logically,  in  merging  data  files,  it 
is  most  important  to  ascertain  that  the  common  information 
employed  for  merge  is  of  the  same  format  and  length. 

In  merged  file  retrieval  a control  division  is  still 
necessary;  that  is,  the  entire  retrieval  must  begin  with  a 
FILE  statement.  The  file  to  be  first  queried  must  be 
referenced  here.  The  control  division  may  also  contain  the 
RASP  library  action  statements:  EXECUTE  and/or  DELETE.  No 
primary  LIMIT  may  be  used. 

Following  the  control  division  of  the  query  must  be  a 
TITLE  statement  identifying  the  single  retrieval  that  may  be 
included.  Here  the  retrieval  must  be  named  and  assigned  a 
retrieval  number.  Other  optional  tITLE  statement  operators 
may  be  included  as  appropriate. 

Following  the  TITLE  statement  the  first  file  to  be 
queried  may  be  referenced  again  in  a FILE  statement; 
however,  if  omitted  the  first  file  to  be  queried  will 
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default  to  the  file  identified  in  the  control  division  FILE 
statement.  The  limit/retrieval/sort/select  statements  that 
apply  to  the  first  file  queried  follow  as  applicable. 

The  second  file  to  be  queried  is  identified  with  another 
PILE  statement  which  is  then  followed  by  the 
limit/retrieval/sort/select  statements  for  that  file. 

Any  subsequent  files  are  identified  and  queried  in  the 
same  manner. 

Example  1 

PILE  INSTALN. 

TITLE  S038R/1103. 

PILE  INSTALN. 

IP  POINT  CIR  4909N00611E/30. 

SORT  M»  LOC. 

IF  POINT  CIR  4300N00556E/50. 

SORT  *2»  LOC. 

PILE  TEST 360. 

IF  METRY  EQ  PR 

AND  NECAP  EQ  D. 

FURTHER  IP  MELOC  CIR  4900N0061 IE/30. 

SORT  *1»  LOC  PLTRT . 

FURTHER  IP  MELOC  CIR  4300N00556E/50 . 

SORT  *2'  LOC  PLTRT. 

Comment:  This  example  illustrates  a merged  file  retrieval 

executed  against  two  files:  INSTALN  and  TEST  360.  The  first 
file  to  be  queried  is  INSTALN;  therefore,  it  is  identified 
in  the  control  division  PILE  statement.  The  TITLE  statement 
assigns  the  retrieval  name  S038R,  and  a retrieval  number  of 
1103.  The  next  statement  is  a repeat  of  the  control 
division  PILE  statement  and  again  identifies  INSTALN  as  the 
first  file  to  be  queried.  This  statement  may  be  omitted  and 
will  default  to  the  file  on  the  control  division  PILE 
statement  if  it  is.  In  either  case  INSTALN  is  to  be 
interrogated  by  the  RASP  statements  in  the  retrieval  until 
the  PILE  TBST360.  statement  is  encountered. 

In  the  INSTALN  retrieval,  records  concerned  with 
military  airfields  within  30  nautical  miles  of  METZ  and  50 
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nautical  mxles  of  TOULON  are  retrieved  and  sorted  on 
location  (LOC) . A SORT  literal  of  1 is  inserted  into  the 
SORTKEY  for  those  records  with  locations  near  METZ  and  a 2 
for  those  records  with  locations  near  TOULON. 

when  the  end-of-file  of  the  INSTALN  file  is  reached,  the 
second  file,  TEST360,  then  becoaes  the  file  being  queried. 
Here  records  concerned  with  deployments  in  France  with  dual 
weapon  capabilities,  and  located  near  HETZ  and  TOULON  are 
retrieved.  Again,  a SORT  literal  of  1 is  inserted  into  the 
SORTKEY  for  a record  with  a location  near  HETZ  anda  2 for 
those  near  TOULON. 


The  retrieved  records  will  be  aerged  together  in  the 
order  specified  by  the  SORTs.  All  the  records  froa  both 
files  identified  by  the  SORTKEYs  containing  1 will  appear 
first.  The  records  froa  both  files  identified  by  the 
SORTKEYs  containing  2 will  appear  last.  Herged  file  output 
is  illustrated  in  Users  Manual,  Voluae  V,  Output 
Processor (OP) , paragraph  5.1.3. 

2.6  Restrictions 

The  following  maximum  liaits  are  iaposed  by  the  RASP 
component  on  each  job  (batch  of  retrievals). 


b. 

c. 

d. 

e. 

f . 

g» 
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>• 
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mum 
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job 

= 1. 

SORT  or  SELECT  pairs  per  IF  or 
- 29. 

RIT-naaes  per  retrieval  = 5(>. 
statements  per  retrieval  * 256. 
subroutines  per  retrieval  * 29 • 
clauses  per  statement  = 256. 
retrievals  in  a single  file 

retrievals  in  a merged  file 
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h.  Maximum  number  of  files  in  a Merged  file  job  = 10. 

i.  Maxi  bum  number  of  field  or  group  names  per  retrieval 

= 400. 

j.  Maxiaua  nuaber  of  replaceable  variables  per  retrieval 
= 255. 

k.  Maxiaua  nuaber  of  cards  per  statement  = 27. 

l.  Maxiaua  nuaber  of  characters  comprising  a list 

of  multiple  data  values  in  a clause:  N = 250 
where  N is  total  of  all  characters  in  the  list 
plus  three  for  each  value. 

a.  Maxiaua  nuaber  of  operands  for  all  SORT  statements 
in  one  RASP  job  is  340. 

2.7  Defining  a Skeleton  Query 

A skeleton  query  is  defined  by  prefixing  at  least  one 
operand  in  the  query  with  an  underscore  character  (0-5-8 
punch).  The  presence  of  this  character  automatically  causes 
that  query  to  be  generated  so  that  the  operands  so 
designated  can  be  replaced  by  other  operands  for  succeeding 
executions.  The  operands  cannot  be  replaced  during  the  same 
run  in  which  the  query  is  being  compiled. 

Operands  which  are  legal  for  designating  as  replaceable 
are  the  value  portions  of  condition  clauses.  Function 
Operator  names,  members  of  the  Function  Operator  parameter 
list  and  SORT  statement  terms. 

Soae  basic  rules  for  designating  replaceable  operands 
(variables)  are: 

a.  Replace  a literal  with  a literal. 

b.  Replace  a field  name  with  a field  name. 

c.  Replace  field  names  with  field  naaes  froa  the  same 
set . 


1 \ 
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There  are  other  rules  or  exceptions  to  rules  which  apply 
to  particular  statements  or  clauses.  These  are  defined  in 
succeeding  paragraphs. 

2.7.1  Standard  Condition  Clause  Variables 

The  value  portion  of  a condition  can  be  designated  as 
replaceable. 

Example  1 

.. . . MEQPT  EO  _TANK. . . . 

Comment:  TANK  is  designated  as  a replaceable  item;  thus,  at 

execution  time  it  can  be  replaced.  If  it  is  not  replaced, 
data  field  MEQPT  will  be  compared  to  the  literal  TANK. 

The  same  value  might  be  designated  as  replaceable  a 
number  of  times.  In  this  case,  a single  replacement  will 
cause  all  the  like  values  to  be  replaced. 

Example  2 

...MERDY  LT  _10  OP  HEPSD  GT  _10  OR  HEPEQ  EQ  _10... 

Comment:  Numeric  10  is  designated  as  replaceable  in  three 
different  condition  clauses;  thus,  the  replacement  of  11/ 
would  cause  all  three  clauses  to  use  the  replacement  value. 

Subroutine  conversion  of  a replacement  literal  value 
cannot  be  specified  at  execution  time.  However,  if  the 
replaceable  variable  was  to  be  converted,  the  replacement 
variable  will  be  converted.  This  is  true  only  for  condition 
clauses  (see  restriction  for  sort  variables  in  subsection 
2.6.3).  A replacement  variable  replacing  more  than  one 
replaceable  variable  may  be  converted  in  one  case  and  not  in 
the  other,  or  even  converted  by  a different  conversion 
subroutine,  depending  upon  the  original  replaceable  variable 
specification.  In  either  case,  at  qualification  time,  the 
appropriate  value  will  be  used  to  qualify  the  data. 
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Exaaple  3 

. . . CNTRY  EQ  _SLOBO VIA  OP  LOC  EQ  _SLOBOVIA... 

Comment:  Assuie  that  CNTRY  has  a conversion  subroutine 
designated  in  the  prT  and  that  LOC  does  not.  At  execution 
time,  SLOBOVIA  is  replaced  by  POSSLYN.  ROSSLYN  would  be 
converted  by  the  subroutine,  and  the  converted  value  would 
be  used  in  the  first  condition.  The  unconverted  value  would 
be  used  for  the  second  condition. 

A data  field  naae  (indirect  addressing)  can  be  replaced. 
However,  the  replacement  aust  also  be  a data  field  name  and 
aust  belong  to  the  same  set  as  the  original  data  field  name. 
Note  that  the  data  types  aust  be  compatible;  i.e.,  alpha 
fields  are  coapared  to  alpha  fields,  numeric  to  numeric,  and 
coordinate  to  coordinate. 

Exaaple  4 

...HEPSD  GT  6MEREQ. . . 

Coaaent:  Data  field  name  HEFEQ  can  be  replaced  by  another 
data  field  from  the  same  set  as  MEREQ. 

A condition  can  be  omitted  at  execution  time  if  a value 
has  been  designated  as  replaceable  and  is  replaced  by  a 
dollar  sign.  A single  dollar  sign  (S)  is  the  only  valid 
usage  of  a dollar  sign  as  a replaceable  value.  Care  should 
be  used  with  this  option  and  particularly  with  periodic 
conditions.  If  a condition  is  oaitted  and  that  condition  is 
part  of  an  AND  string,  the  oaitted  condition  is  treated  as 
a true  condition.  Therefore,  if  all  conditions  against  a 
periodic  set  are  oaitted  and  the  record  qualifies,  subsets 
for  that  set  would  be  flagged. 

Exaaple  5 

PILE  TEST360. 

TITLE  RETl/fM  NO-GO. 

IP  CNTBT  EQ  USA  AND  HEQPT  EQ  _TAN* 

AND  PLEAC  EQ  A. 
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Comment:  CNTFY  is  a field  in  the  fixed  set,  MEQPT  is  a field 
in  Periodic  Set  1,  and  PLEAC  is  a field  in  Periodic  Set  5. 
The  value  TANK  has  been  designated  as  a replaceable 
variable. 

The  following  EXECUTE  statement  would  cause  all  records 
which  qualify  on  CNTFY  and  PLEAC  to  qualify  regardless  of 

MEQPT. 

Example  6 

EXECUTE  RET1  (TANK=$)  . 

Comment:  In  this  example,  all  subsets  of  Periodic  Set  1 

would  be  flagged. 

An  omitted  condition  which  is  in  an  OR  string  will  be 
treated  as  false.  Thus,  flagging  of  subsets  would  logically 
be  correct. 

Example  7 

FILE  TEST  3 60. 

TITLE  PET  1/01  NO-GO. 

IF  CNTFY  EQ  USA  OR  MEQPT  EQ  _TANK 
OF  PLEAC  EQ  A. 

The  following  EXECUTE  statement  would  cause 
qualification  of  the  record  if,  and  only  if,  CNTFY  or  PLEAC 
is  true. 

Example  d 

EXECUTE  RET1 (TANK=$) . 

Comment:  Subsets  contained  in  Periodic  Set  1 would  not  be 

flagged . 

Literal  replacement  values  for  a conditional  clause  may 
be  a multiple  value  replacement;  i.e.,  a single  literal 
value  in  a conditional  clause  may  be  replaced  by  several 
values.  These  values  will  be  restricted  to  use  the  EQ,  NE, 
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CONTAINS,  and  BT  relational  operators.  These  values  must  be 
enclosed  in  parentheses. 

Example  9 

FILS  TEST 360. 

TITLE  RET1/01  NO-GO. 

IP  flEQPT  EQ  _TANR. 

Comment:  TANK  could  be  replaced  by  the  multiple  values  of 
SHIP,  PLANE,  and  GUN,  by  use  of  the  following  EXECUTE 
statement: 

EXECUTE  FET1  (TANK= (SHIP, PLANE, GUN)  ) . 

At  execution,  the  conditional  statement  thus  becomes: 

IP  MEQPT  EQ  SHIP  OP  HEQPT  EQ  PLANE  OR  HEQPT  EQ  GUN. 

There  are  three  relational  operators  in  which  the  clause 
format  is  somewhat  special.  These  are  the  BETWEEN  (BT) , the 
Overlapping  Polygon  (OVP)  , and  Circle  Search  (CIF) . 
Replacement  designation  for  each  is  discussed  in  succeeding 
pa ragraphs. 

i Either  or  both  of  the  value  for  the  BT  operator  can  be 

designated  as  replaceable. 

Example  10 

IP  MEPSD  BT  0/  10. 

IP  MEPSD  BT  0/100. 

IP  MEPSD  BT  _0/_100. 

Comment:  In  the  first  example,  the  value  10  could  be 
replaced  by  another  value;  in  the  second  example,  the  value 
0 could  be  replaced  by  another  value;  in  the  third  example, 
either  or  both  values  could  be  replaced. 

If  either  of  the  factors  is  replaced  with  the  $ 
character,  the  condition  is  omitted.  At  the  time  the 
retrieval  is  compiled,  a check  will  be  made  to  see  if  a 
logical  relationship  exists  between  the  two  operands.  If 
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the  first  operand  is  greater  than  the  second,  the  values 
will  be  reversed  and  stored  in  that  Banner. 


For  example: 

IF  MEPSD  BT_10/_01. 
will  be  stored  as  if  it,  reads 
IF  MFPSD  BT_01/10. 

and 

IF  MEPSD  BT_START/END. 
will  be  stored  as  if  it  reads 


IF  MFPSD  3T_FND/_STAPT. 

This  second  case  would  probably  not  be  what  the  user 
intended,  so  care  should  be  exercised  to  use  replaceable 
value  names  which  are  in  the  proper  collating  sequence  to 
achieve  desired  results.  No  check  for  a logical 
relationship  is  made  after  replaceaent  and  during  execution 
of  the  query.  Therefore  the  effective  result  could  be  BT 
200/100. 


If  either  of  the  factors  is  replaced  with  the  $ character, 
the  condition  is  omitted. 


Any  or  all  designated  coordinates  for  the  OVP  operator 
can  be  designated  as  replaceable.  Also,  a coordinate  can  be 
replaced  by  more  than  one  coordinate.  The  replaceaent 
coordinate (s)  are  merged  with  those  which  are  not  designated 
as  replaceaole  or  which  are  not  replaced.  If  there  are  no 
coordinates  after  the  merge  has  taken  place,  the  OVP  is 
treated  as  an  omitted  condition. 

Example  11 

IF  MEPNT  OVP  «9^NJ»^65(yE/4940rN^615E/_U945N)JJ>22DrE. 

if  mfpnt  ovp 
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Comment:  In  the  first  exaaple,  the  third  parameter  could  be 
replaced  by  froi  one  to  six  coordinates  (OVP  allows  a 
aaxiaua  of  eight  coordinates).  These  would  be  aerged  with 
the  first  two  parameters  to  fora  the  polygon.  The  second 
exaaple  illustrates  a aore  practical  use  of  the  replacement 
variable  with  the  ovp  operator.  This  is  where  the  user 
defines  a duaay  polygon  consisting  of  a single  coordinate 
and  at  execution,  defines  his  true  coordinate (s) . 

Either  or  both  the  coordinate  and/or  the  distance  can  be 
designated  as  replaceable  for  the  CIR  operator. 

Exaaple  12 

IF  POINT  CIR  4940N0P615E/  35JT. 

IF  POINT  CIR  494f  Nflrjr615E/35jy. 

IF  POINT  CIR  _494J9N0p615E/_35(I. 

Coaaent:  In  the  first  example,  the  value  350  could  be 

replaced  at  execution  tiae.  In  the  second  exaaple,  the 
value  4 940N00615B  could  be  replaced.  In  the  third  exaaple, 
either  or  both  values  could  be  replaced.  If  either  value  is 
replaced  by  a $ character,  the  CIR  condition  would  be 
oa it  ted. 

2.7.2  FUNCTION  Operator  Replaceable  Variables 

Both  the  FUNCTION  Operator  subroutine  name  and/or 
paraaeters  in  the  subroutine  parameter  list  can  be 
designated  as  replaceable  variables  and  can  be  replaced  at 
execution  tiae. 

To  designate  a FUNCTION  Operator  subroutine  as 
replaceable  the  underscore  character  aust  be  prefixed  to  the 
subroutine  name.  Care  aust  be  taken  that  the  replacement 
subroutine  and  the  original  parameter  lists  are  compatible. 

Example  1 


...AND  FUNCTION  _ADD  SHE0RC,SNE0SN,H0RK1  AND... 
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Comment:  FUNCTION  Operator  ADD  can  be  replaced.  However, 
the  replacement  operator  should  expect  two  values  and  a 
system  work  area  as  its  paraaeter  list. 

Parameters  in  the  FUNCTION  Operator  subroutine  paraaeter 
list  are  designated  as  being  replaceable  by  prefixing  that 
parameter  with  an  underscore  character.  Data  fields  which 
are  replaced  are  checked  to  determine  whether  they  are 
replaced  by  another  data  field  froa  the  same  set  as  the 
original  specification.  Literals  must  be  replaced  by 
literals.  A literal  parameter  can  only  be  replaced  by  a 
singxe  value  literal.  A literal  does  not  have  to  be 
replaced  by  a literal  of  the  sane  mode;  i.e.,  an  alpha 
literal  might  be  replaced  by  a numeric  literal.  If  the 
replacement  literal  is  all  numeric  characters  it  will  be 
converted  and  passed  to  the  ^UNCTION  subroutine  as  a full 
word  binary  value. 

Example  2 

...AND  FUNCTION  GCD  6P0INT  _607 5N1 2 53 5E, 

_999  GT  WORK  1 OR.  . . 

Comment:  Data  field  POINT  could  be  replaced  by  another 
coordinate  data  field  froa  the  same  set.  Latitude/longitude 
6075N12535E  could  be  replaced  by  a value  which  would  be 
given  to  the  FUNCTION  Operator  as  an  EBCDIC  string  of 
characters  (includes  alpha  characters)  . 999  could  be 
replaced  by  a numeric  value. 

2.7.3  Sort  Statement  Variables 

Fields  which  compose  the  sort  key  may  be  designated  as 
replaceable.  This  is  accomplished  by  prefixing  the  sort 
field  designation  with  an  underscore  character.  A literal 
can  only  be  replaced  by  a literal,  and  a data  field  can  only 
be  replaced  by  a data  field  from  the  same  set.  The 
descending  sort  flag,  #D#,  may  not  be  specified  as 
replaceable.  However,  if  the  field  or  group  name  preceding 
the  descending  sort  flag  is  marked  as  replaceable  and  the 
field  or  group  is  replaced,  then  the  descending  sort  option 
will  not  be  taken.  See  examples  4 and  5 for  an  illustration 
of  replacing  fields  with  descending  sort  specified. 
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i Example  1 

SORT  CRTRT , _MEQPT,  _'X'. 

Comment:  The  field  HEQPT  can  be  replaced  by  another  field 
fro*  the  sa«e  set  as  HEQPT.  The  literal  X can  be  replaced 
by  another  literal.  If  the  Output  Processor  references 
relative  positions  within  the  sort  key  as  specified  in  the 
user's  RIT,  the  relative  positions  nay  change  unless  the 
replacement  value  is  of  the  saae  length. 

If  an  operand  in  the  SORT  statement  is  replaced  by  a $ 
character,  that  data  field  or  literal  will  be  onit*ed  from 
the  sort  key. 

Subroutine  conversion  of  a data  field  cannot  be 
designated  for  replaceable  fields.  The  sort  replacement 
differs  from  the  condition  replacement  in  this  respect. 
Regardless  of  whether  subroutine  conversion  was  performed  on 
the  original  operand,  no  conversion  will  be  performed  with 
the  replacement  field. 

Example  2 

FILE  TEST 360. 

TITLE  HET1/01  MO-GO. 

IF  MRPSD  GT  0. 

SORT  _ CM TRY  #CMTR YS# . 


Comment:  At  execution  time,  the  field  CNTRY  could  be 
replaced  as  follows: 

EXECUTE  RET1  (CNTPY=0HT0E)  . 

The  results  of  the  query  would  be  sorted  by  the  field  UNTOF 
rather  than  by  CNTRY.  Also,  the  subroutine  conversion  would 
not  apply  to  UMTOE. 

In  the  above  example,  if  the  user  wished  to  sort  by 
CMTRY  unconverted,  it  could  be  done  with  the  following 
EXECUTE  statement: 
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EXECUTE  RET  1 (CNTR  Y=CNTPT)  . 

Partial-field  notation  and  subroutine  conversion  are 
processed  similarly;  i.e.,  PFN  cannot  be  designated  for  the 
replacement  value,  and  the  skeleton  notation  does  not  apply 
to  the  replacement. 

Example  3 

FILE  TEST360. 

TITLE  RET1/01  NO-GO. 

IF  MEPSD  GT  0. 

SORT  TRDTG  1/6. 


Comment:  At  execution  time,  the  field  TRDTG  could  be 

replaced  as  fellows: 

EXECUTE  RET1  ( T RDTG=R ADTG) . 

The  partial-field  notation  would  not  apply  to  the  field 
RADTG,  and  the  results  of  the  retrieval  would  be  sorted  on 
' the  entire  contents  of  the  field  RADTG. 

Example  4 

FILE  TEST  360. 

TITLE  RET1/01  NO-GO. 

IF  UIC  GT  H 0000 1 . 

SORT  UIC  _ PERS  #D#. 

' Comment:  At  execution  time,  the  field  PEPS  could  be 

replaced  as  follows: 

EXECUTE  RET1  (PERS=P5RS) 

The  descending  sort  option  would  not  be  applied  to  the  field 
PERS,  and  the  results  of  the  retrieval  would  be  an  ascending 
sort  on  both  fields,  UIC  and  PERS. 


106 


RETRIEVAL  AND  SORT  PROCESSOR  (RASP) 


Example  5 

FILE  TEST360. 

TITLE  RET  1/01  NO-GO. 

IF  OIC  GT  H00001. 

SORT  UIC  _LOC  #D# . 

Comment:  At  execution  tine,  the  field  LOC  could  be  replaced 

as  follows: 

EXECUTE  RETl  (LOC=CNAH)  . 

The  descending  sort  option  would  not  be  applied  to  the  field 
CNAH,  and  the  results  of  the  retrieval  would  be  an  ascending 
sort  on  both  fields,  UIC  and  CNAH. 

2.8  Writing  a FUNCTION  Operator  Subroutine 

This  subsection  is  primarily  directed  towards  the 
progranwer  responsible  for  writing  the  subroutine.  The 
terminology  used  is  progranner-oriented.  Based  on  the 
qualification  algorithm  established  by  the  user  (analyst) 
and  based  on  any  additional  output  requirements,  the 
progranwer  can  proceed  with  detailed  design  and  coding  of 
the  subroutine.  The  subroutine  should  be  written  as  a 
single  root  segment,  and  no  input  or  output  functions  should 
be  performed  by  the  user  routine. 

The  Function  Operator  subroutine  should  be  compiled  and 
link  edited  onto  the  Partitioned  Data  Set  Library,  which  is 
used  to  store  program  load  nodules  and  is  included  in  the 
SLIB  concatenation  of  data  sets  when  executing  RASP.  (This 
library  is  frequently  referred  to  as  the  User  Pile  Library 
or  Composite  Library  and  contains  retrievals,  RlTs, 
conversion  tables  and  subroutines.) 

The  following  paragraphs  describe  the  interface  or 
linkage  required  for  Function  Operator  subroutines.  RASP 
uses  the  standard  NIPS  360  FPS  Subroutine  Supervisor 
(SUBSUP)  calling  sequence.  Input  formats  can  usually  be 
predetermined;  thus,  the  use  of  COBOL  and/or  FORTRAN  is 
feasible.  (lore  complex  and  variable  input  subroutines  will 
require  use  of  OS/360  Assembler  Language.  The  PASP  Function 
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Operator  capability  provides  the  interface  with  the  user 
routine  to  cause  execution  of  the  qualification  algorithm 
and  to  pass  generated  data  to  the  qrt  for  display  or  further 
processing  by  the  Output  Processor. 

Passed  Data  String  Format 

RASP  will  "gather"  data  elements  of  the  Function 
Operator  parameter  list  as  prescribed  by  the  user  in  his 
query  and  will  formulate  a data  string  which  will  be  passed 
to  the  named  subroutine.  In  this  string.  there  may  be 
elements  from  the  data  file,  from  literals  within  the 
parameter  list  or  from  the  system  work  areas.  All  numeric 
data  from  the  data  file  and  system  work  areas,  and  from 
unsigned  numeric  literals,  will  be  passed  as  fullword  binary 
values. 

Signed  numeric  literals  are  passed  as  EBCDIC  literals 
and  must  be  converted  to  the  proper  form  by  the  subroutine. 
The  maximum  or  minimum  value  passed  as  a fullword  binary 
value  is  ±2147483647.  The  passed  data  string  format  is  as 
follows: 

AABBCCDEFF. . FFCCDEFF.  .FF.... 
where 

A = Number  of  bytes  in  the  data  string 
b = Number  of  data  elements  in  the  data  string 
C = Number  of  bytes  (length)  of  the  data  element 
D = Type  of  data  element  code 
A = Alpha  (decimal) 

B = Binary 
C = Coordinate 
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E = Set  code  19  = fixed  set,  1 = periodic  set,  2 = work 
area,  3 = literal) 

F * Data  value. 

C,  D,  E,  and  F are  repeated  for  each  itea  in  the  parameter 
list.  If  a parameter  is  replaced  by  use  of  the  replacement 
capability,  the  length  and  mode  for  the  replaced  value  will 
be  used.  Obviously,  if  the  replacement  length  is  different 
from  the  original  length,  format  problems  will  be 
encountered  when  predefined  fixed  formats  are  used.  Note 
also  that  a $ mask  replacement  value  will  result  in  a data 
element  lenqth  of  zero,  and  that  mode  and  set  code  will  not 
be  set. 

Alignment  will  not  be  guaranteed;  however,  if  all 
numeric  values  appear  first  in  the  parameter  list,  they  will 
be  fullword  aligned. 

Calling  sequence  to  the  Function  Operator  Subroutine 

The  standard  SOBSHP  (NIPS  360  FFS  Subroutine  Supervisor) 
calling  seguence  to  user  subroutines  will  be  used.  This 
conforms  to  the  standard  OS/360  linkage  conventions.  Three 
parameters  are  passed  to  the  subroutine.  They  are  the  Entry 
Point  to  SUBSUP  (for  subroutines  which  call  other 
subroutines)  , the  data  string  and  a result  byte.  The  Entry 
Point  to  SUBSUP  can  only  be  used  by  Assembler  Language 
subroutines.  However,  a "dummy"  definition  in  COBOL  and 
FORTRAN  subroutines  must  be  defined.  The  data  string  will 
be  used  oy  all  subroutines  regardless  of  compiler  language. 
The  result  byte  is  for  placement  of  a code  which  will  be 
used  in  the  retrieval  qualification.  In  Assembly  Language 
routines.  Register  15  nay  contain  the  return  code.  The 
codes  are  S if  true  and  n if  false.  It  must  be  set  upon 
return  from  the  subroutine. 

A calling  sequence  example  is  as  follows: 

CALL  SUB  (Pi,  P2,  P3)  or 

CALL  'SUB*  USING  Pi,  P2,  P3. 
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Where 

sue  = Name  of  function  Operator  subroutine 

PI  = SUBSUP  Entry  Point 

P2  = Data  string  (described  above) 

P 3 = Result  byte. 

Assembler  Lanquaqe  Subroutine  Linkage 

Standard  OS/360  linkage  conventions  should  be  used,  and 
the  routine  should  use  the  following  macro  as  its  first 
instruction. 

SUBNAflE  FFSBEGT  V BASEREG 


This  macro  will  generate  the  proper  CSECT  and  SAVE  linkage. 
XI 3 will  point  to  a generated  SAVE  area  and  should  not  be 
used  by  the  qualification  routine.  Register  BASEREG  will 
have  been  initialized  as  the  routine  base  register  along 
with  the  appropriate  using  statement.  Register  1 will  point 
to  the  parameter  address  constant  list.  When  returning 
control.  Register  15  may  contain  the  return  code  as 
discussed  previously;  the  following  macro  will  be  used  to 
return  control; 


FFSRETRN  PC=(15) 

otherwise,  the  byte  indicated  by  parameter  three  must  be 
filled  with  'S'  or  ' M ' . 

COBOL  Subroutine  Linkage 

COBOL  Function  Operator  subroutines  require  a LINKAGE 
SECTION  and  an  ENTRY.  The  ‘linkage  section’  describes  the 
parameters  which  are  passed  to  it.  The  first  parameter 
(SUBSUP  Entry  Point)  must  be  defined,  even  though  the 
subroutine  cannot  use  it.  The  second  parameter  describes 
the  data  string  for  this  particular  function  subroutine  and 
the  third  parameter  is  the  result  byte. 
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The  following  is  an  example  of  the  LINKAGE  SECTION: 


01 

PI. 

02 

NOTHING 

PICTURE  X. 

01 

P2. 

02 

DSLEN  PICTURE  S(99)  USAGE  COMPUTATIONAL. 

02 

DSNUM  PICTURE  S(99)  USAGE  COMPUTATIONAL. 

02 

DSP1LEN 

PICTURE  S (99)  USAGE  COMPUTATIONAL 

02 

DSP1TYP 

PICTURE  X. 

02 

DSP1SET 

PICTURE  X. 

02 

DSP1 VAL 

PICTURE  IXXXX. 

01  P3. 

02  RETURN-CODE  PICTURE  X. 

Entries  DSP1LEN  through  0SP1VAL  would  be  repeated  to 
describe  each  data  element  which  was  input  to  the  routine 
(with  different  field  naies) . Of  course,  the  description  of 
the  value  itself  would  vary. 

The  ENTRY  statement  will  be  located  soaewhere  in  the 
PROCEDURE  DIVISION  of  the  function  subroutine.  The 
following  is  an  exaaple  of  ♦•he  ENTRY  statement: 

ENTRY  'SUB*  USING  Pi  P2  P3. 

FORTRAN  Subroutine  Linkage 

If  all  input  values  to  the  FORTRAN  subroutine  are 
assuaed  to  be  numeric,  the  data  string  can  easily  be 
defined.  The  TYPE  and  SET  bytes  must  be  ignored.  The 
FORTRAN  subroutine  must  contain  a SUBROUTINE  statement  and 
statements  declaring  or  defining  the  data. 

The  following  is  a FORTRAN  example: 

SUBROUTINE  SUB  (P1,P2,P3) 

DIMENSION  P4  (5)  , P5  (10)  » P 2 (3) 

INTEGBR*2  P5 
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LOGICAL* 1 P3 

EQUIVALENCE  (P4  ( 1)  , P5  (1 ) } 

DATA  S/'S'/fM/'M'/ 

In  the  preceding  exanple,  assuming  that  two  data 
elements  are  being  passed  to  the  subroutine,  the  data  string 
is  moved  into  the  subroutine  and  into  an  area  which  is 
defined  as  five  fullwords.  The  same  area  is  defined 
(equated)  to  10  halfwords,  thus,  allowing  the  program  to 
work  with  either  halfword  or  fullword  values. 

The  result  code  is  defined  as  one  byte.  A value  which 
results  in  the  appropriate  code  (S  or  N)  must  be  placed  in 
the  result  prior  to  returning.  Also,  the  HOP  of  the  data 
string  will  be  fullword  aligned;  thus,  all  alignment  will 
fall  in  place,  provided  that  only  numeric  parameters  are 
specified. 

2.9  writing  an  Analyzer  Subroutine 

This  section  is  intended  for  the  programmer  responsible 
for  writing  the  subroutine.  All  conditions,  rules,  and 
restrictions  regarding  a FUNCTION  Operator  as  described  in 
sections  2. 4. 2. 2. 3,  FUNCTION  Operator,  and  2.8,  Writing  a 
FUNCTION  Operator  Subroutine,  apply  to  an  analyzer 
subroutine.  Therefore,  this  section  will  only  explain  the 
passed  data  string  format  for  an  analyzer  subroutine.  The 
calling  sequence  to  the  analyzer  subroutine  and  subroutine 
linkage  using  Assembler  Language,  COBOL,  or  FORTRAN  are 
exactly  as  described  in  section  2.8,  Writing  a FUNCTION 
Operator  Subroutine. 

Index  Processing  will  create  a data  string  from  the  data 
elements  of  the  FUNCTION  Operator  parameter  list.  In  this 
string,  there  may  be  user  name  fields  or  literals.  There 
may  be  no  elements  from  the  data  file,  from  the  Index  Data 
Set,  or  from  any  system  work  area.  All  literals  will  be 
passed  exactly  as  they  are  submitted  on  the  input  statement 
but  without  the  delimiting  quote  marks.  No  conversion  of 
any  kind  will  be  performed. 
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The  passed  data  string  format  input  to  the  analyzer 
routine  is  as  follows: 

AABBCCDEF FCCDEF. . . . F. . . 

Data  Data 

Element  1 Element  2 

where: 

A - Number  of  bytes  in  the  entire  data  string  (binary) 

B - Number  of  data  elements  in  the  string  (binary) 

c - Number  of  bytes  in  the  data  element  (binary) 

D - Type  of  data  element  code  - One  byte  (alpha) 

For  the  indexed  field,  this  is  the  data  file  mode; 
otherwise: 

A - Alpha  (a  literal) 

F - A field  name  (nonindexed  field  or  not  the 

first  indexed  field) 

E - Status  code  - One  byte  (alpha) 

0 - Indexed  field  in  the  clause 

1 - Nonindexed  field 
3 - Literal 

F - Data  value 

C,  D,  E,  and  F are  repeated  for  each  item  in  the  parameter 
list.  If  a parameter  is  replaced  by  use  of  the  replacement 
capability,  the  length  and  status  of  the  replacing  value 
will  be  used.  No  alignment  is  guaranteed. 
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As  noted  above,  the  calling  sequence  for  an  analyzer 
subroutine  xs  the  same  as  for  a FUNCTION  Operator.  An 
example  of  the  calling  sequence  is: 

CALL  ' ANLYZ ' USING  Pi  P2  P3. 


ANLY2  - Name  of  analyzer  subroutine 
Pi  - SUBSUP  entry  point 

P2  - Data  string  as  described  above 

F3  - Result  byte 

S - Indexes  are  to  be  used 
H - Indexes  are  not  to  be  used 


The  subroutine  will  set  the  result  byte  based  on  its 
analysis.  If  indexes  are  to  be  used,  the  subroutine  must 
return  data  in  the  same  area  as  the  passed  data  string 
.parameter  P2,  described  above).  The  size  of  the  data 
string  returned  cannot  exceed  256  bytes. 


Format  of  the  data 
subroutine  is  as  follows: 


AABBCD DCD 


string  output 


D 


from  the  analyzer 


Data  Data  Data 

Element  Element  Element 


A - Number  of  bytes  in  the  entire  data  string  as  returned 
by  the  subroutine  (binary). 

Note:  This  string  cannot  exceed  256  bytes. 

b - Number  of  data  elements  returned  by  the  subroutine 
(binary) 
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C - 
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2.10  SYS  DATS  FUNCTION  Subroutine 

SYSDATS  is  a FUNCTION  subroutine  which  allows  the  user 
to  access  the  current  systea  date  for  use  in  retrieval.  By 
using  the  subroutine,  records  can  be  retrieved  based  on  the 
logical  relation  between  a file  date  field  and  the  current 
systea  date.  The  relationship  is  established  by  applying  an 
adjustment  factor  to  the  systea  date  and  then  testing  this 
adjusted  date  against  the  file  date  field  for  the  specified 
relationship. 

2.  10.1  SYSDATS  Foraat 

The  foraat  for  using  SYSDATS  is: 

FUNCTION  SYSDATS  relop  6fld  'adjl'  'adj2' 

where: 

FUNCTION  (required)  --  used  to  identify  the  string  as 
FUNCTION  iteas. 

SYSDATS  (required)  — used  to  identify  the  FUNCTION 
subroutine  being  invoked. 

Relop  (required)  — the  relational  operator  specifying 
the  type  of  test  to  be  performed.  The  valid  operators 
are  3Q,  NE,  LT , LE,  GT,  GE,  BT,  and  NB.  Each  of  these 
operators  is  a standard  RASP  relational  operator  except 
for  NB,  which  represents  NOT  BT. 

Sfld  (required)  --  the  file  fieldname  which  contains  the 
date  value.  The  field  nust  be  a 6-character 
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ALPHA/DECIMAL  field  in  the  for*  of  TYHMDD.  The  field 
name  must  be  preceeded  by  an  ampersand  (S)  . 

•adjl'  (required)  — the  adjustment  factor  to  be  applied 
to  the  system  date.  The  format  of  the  adjustment  is: 

• snnYRnnNOnnDA* 

where: 

s (optional)  - a sign  (♦  or  -)  indicating  that  the 
adjustment  is  to  be  upward  (♦)  or  downward  (-)  . 

When  omitted,  the  adjustment  is  assumed  to  be 
upward. 

nn  (required)  - a 1 to  2 digit  number  specifying 
the  number  of  years,  months  and/or  days  the  system 
date  is  to  be  adjusted.  The  number  can  be  any 
number  from  zero  (0)  +o  99. 

YR  - indicates  an  adjustment  in  years. 

1 MO  - indicates  an  adjustment  in  months. 

DA  - indicates  an  adjustment  in  days. 

The  adjustment  factor  must  be  enclosed  in  single  quotes. 

The  adjustment  may  be  specified  using  one  or  more  of  the 
time  units,  for  example: 

• - 7 D A • - is  seven  days  prior  to  the  current  system 
date. 

' ♦ 3 M07DA'  - is  three  months  and  seven  days  after 
the  current  system  date. 

• 1 Y R 1 DA ' - is  one  year  and  one  day  after  the 
current  system  date,  upward  adjustment  assumed. 

* 

If  the  current  system  date  is  to  be  used  without 
adjustment,  the  user  would  code  the  adjustment  as  zero 
(0)  . 

* 
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The  adjustment  factor  as  applied  must  not  cause  the 
system  date  to  overlap  the  century. 

'adj2'  (optional)  --  is  a second  adjustment  factor  to  be 
applied  to  the  current  system  date  only  when  either  the 
BT  or  *he  NB  relational  operator  is  being  used.  The 
format  'adj2'  is  the  same  as  the  format  of  'adjl'.  When 
used,  the  resultant  adjusted  date  must  be  greater  than 
or  equal  to  the  adjusted  date  derived  from  'adjl'. 

2.10.2  SYS  DATS  Examples 

IF  FUNCTION  SY SDATS  EQ  6FDATS  'O'. 

This  example  will  retrieve  records  where  FDATE  is  »gual  to 
the  current  system  date. 

OR  FUNCTION  SYSDATS  G'r  8 FDATE  • -7DA'. 

This  example  uill  retrieve  records  where  FDATE  is  greater 
than  seven  days  prior  to  the  current  system  date. 

AND  FUNCTION  SYSDATS  LE  8FDATE  '6N0'. 

This  example  will  retrieve  records  where  FDATE  is  less  than 
or  eyual  to  six  months  after  the  current  system  date. 

FURTHER  FUNCTION  SYSDATS  BT  & FDATE  • - 6DA • *0’. 

This  example  will  retrieve  records  where  FDATE  ranges  from 
six  days  prior  to  and  up  to  the  current  system  date. 
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I 

Section  3 


INPUT 


RASP  will  retrieve  from  data  files  organized 

sequentially  on  magnetic  tape  as  single  data  files  or  as 

concatenated  segments  of  a data  file,  or  as  either  an 

indexed  sequential  data  set  or  a virtual  storage  access  data 
set  resident  on  a Direct  Access  Storage  Device  (DASD) . 

3.1  Lata  Files 

RASP  will  retrieve  from  data  files  organized 

sequentially  on  magnetic  tape  or  as  either  an  indexed 

sequential  or  a virtual  storage  access  data  set  resident  on 
a Direct  Access  Storage  Device  (DASD).  The  data  set  name 
for  the  data  files  may  be  a qualified  data  set  name  up  to  44 
characters  in  length.  When  retrieving  from  a tape  data 

file,  the  Queued  Sequential  Access  Method  (QSAH)  will  be 
used  as  will  the  Queued  Index  Sequential  Access  Method 

(QISAM)  when  retrieving  from  an  ISAM  data  file  or  the 
Virtual  Storage  Access  Method  (VSAM)  from  a ?SAM  data  file 
residing  on  a Direct  Access  Storage  Device.  The  PPT,  which 
describes  the  logical  record  structure  of  the  data  file,  is 
stored  as  a part  of  the  data  file. 

w 3.2  Index  Data  Set 

I * 

I 

This  data  set  is  the  repository  of  all  indexing 
information  for  its  associated  data  file.  The  data  set  name 
is  the  data  file's  qualified  or  unqualified  name,  less  the 
"S"  for  SAM  files,  with  the  suffix  "X." 

> 3.3  Procedure  Library 

The  Procedure  Library  contains,  among  others,  a set  of 
Job  Control  statements  for  RASP  that  have  been  placed  in  a 
special  data  set  (SYS1.PR0CLIB)  and  that  can  be  retrieved  by 

‘ 

]v 

I * 
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naming  it  in  the  OS/36P  execute  (EXEC)  statement.  The 
procedure,  XRASP,  contains  the  job  and  program  information, 
data  characteristics  and  device  requirements  used  by  the 
operating  sytem  to  regulate  the  execution  of  RASP  job  steps, 
allocate  input/output  resources,  obtain  and  dispose  of  data, 
and  communicate  with  the  operator. 

3.4  Program  Library 

The  Program  Library  is  a partitioned  data  set  that 
contains  user-written  subroutines  and  tables,  retrievals  in 
a program  format  suitable  for  loading  into  main  storage  for 
execution,  the  RASP  programs  themselves,  and  standard 
system-supplied  conversion  subroutines  and  tables.  The 
library  data  set  name  may  be  a qualified  data  set  name  up  to 
44  characters  in  length. 

3.5  RASP  Control  and  Source  Statements 

The  RASP  Control  and  Source  statements  define  the 
environment  for  the  RASP  job,  provide  the  logical  conditions 
for  one  or  more  retrievals,  and  specify  the  library 
maintenance  action  *o  be  taken  against  the  Permanent 
Retrieval  Library,  a subset  of  the  Program  Library. 

3.6  Overriding  Index  Processing 

Index  Processing  normally  activates  the  candidate-access 
mode  if  at  least  75*  of  all  retrievals  in  one  run  can 
utilize  index  information.  The  user  can  override  this  by 
coding  an  entry  on  the  EXEC  statement.  The  entry  is 
PARM=* INDEX=XXXX' , where  XXXX  is  one  of  the  following: 

NO  - Override  Index  Processing  entirely.  RASP 

will  not  activate  Index  Processing  at 
all. 

EVERY  - Allow  the  candidate-access  mode  only  if 

all  retrievals  in  a batch  can  utilize 
index  information. 

ANY  - Allow  the  candidate-access  mode  if  any 

retrieval  in  the  batch  can  utilize  index 
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infornation,  regardless  of  the  number  of 
universal  queries. 

However,  the  presence  of  a KEYWORD  statement  in  the 
retrieval  negates  the  PARM  override  so  that  indexing  is 
always  invoked  when  the  KEYWORD  statenent  is  found. 
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Section  4 


OUTPUT 


This  section  provides  a general  definition  of  the 
various  forms  of  output. 

4.1  Qualifying  Data  File  (QDF) 

The  Qualifying  Data  File  (QDF)  is  written,  using  the 
Basic  Sequential  Access  (BSAH) , as  a sequential  file  of 
variable  length  blocked  records  on  a Direct  Access  Storage 
Device  in  Pecord  ID  sequence.  Each  logical  block  which 
satisfies  the  conditions  of  one  or  more  retrievals  is 
written  on  the  file.  A data  record  is  written  only  once. 
The  QDF  is  not  sorted  and  contains  no  sort  keys. 

The  QDF  also  includes  records  which  contain  file 
classification,  file  control  data,  the  FHS  logic  statements, 
and  source-form  retrieval  statements  for  each  file. 

4.2  Qualifying  Record  Table  (QRT) 

The  QRT  is  a sequential  file  consisting  of  variable- 
length  blocked  records.  One  of  the  primary  records  in  this 
table  consists  of  a sort  key  and  a pointer  to  the  fixed 
field  of  a data  record  on  the  Qualifying  Data  File  which 
satisfied  the  conditions  of  a retrieval.  There  is  at  least 
one  such  entry  for  each  record  that  qualified.  Also 
included  in  each  QRT  entry  will  be  information  identifying 
the  subsets  in  each  data  record  which  caused  the  retrieval 
to  be  satisfied.  There  are  also  records  identifying  the 
files  used  and  records  identifying  the  RIT  names  used. 
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4.3  Transaction  Confirmation 

The  source-form  of  all  retrievals  in  a job  is  listed  on 
the  on-line  printer  to  provide  a permanent  record  of  the 
retrievals  submitted  in  each  batch.  Errors  detected  during 
the  edit  pass  are  flagged  and  error  codes  are  printed  in  the 
left  margin  opposite  the  invalid  statement. 

4.4  File  Indexing  Statistics  and  Messages 

Errors  detected  by  the  file  indexing  function  are 
communicated  to  the  user  by  an  error  code  and  text  as 
appropriate.  As  indexing  operates  on  retrievals  that  are 
essentially  error- free,  the  retrieval  statements  will  not  be 
printed  out.  The  clauses  that  activate  index  usage  (i.e., 
tue  aust-satisfy  clauses  referencing  indexed  fields)  are 
printed. 

Index  Processing  prints  the  number  of  candidate  records 
that  will  be  examined  by  Retrieval  Proper  to  determine  the 
qualifying  records. 

4.5  File  Analysis  and  Run  Optimization  Statistics 

The  File  Analysis  Statistics  Capability  in  the  RASP 
component  provides  transactions  for  each  query  executed  in 
a RASP  execution.  The  data  set  name  (DSNAME)  of  this  data 
set  must  be  the  data  file  name  suffixed  by  a T.  The  T is 
added  to  ISAM  and  VSAM  names;  the  S is  replaced  by  T in  SAM 
names.  To  obtain  transaction  output,  the  DSNAME  must  be 
cataloged  and  the  user  must  specify  the  volume  serial 
(VT3ANS)  and  unit  (OTRANS)  in  the  execution  procedure.  The 
volume  may  oe  any  direct  access  volume. 

If  the  transaction  data  set  exists  at  execution  time, 
transactions  will  be  added  (DISP=MOD)  . If  it  does  not 
exist,  a five  track  data  set  will  be  dynamically  allocated. 
The  user  may  change  the  allocation  value  by  overriding  the 
TRANST  DD  card  space  parameter.  Transactions  are  written  as 
fixed  length,  unblocked,  50-byte  records.  The  format 
(fixed)  and  length  (50)  cannot  be  changed  but  the  user  may 
change  the  blocking  factor  by  specifying  a DCB  BLKSIZE  in 
the  TRANST  DD  card  which  is  a multiple  of  50. 
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If  the  user  specifies  a DSNAHE  (TRANS)  in  the  TRANS  DD 
card,  he  must  supply  all  parameters  required  to  process  the 
data  set.  These  parameters  must  conform  to  the  requirements 
defined  above 

The  Run  Optimization  Statistics  capability  provides  the 
user  with  statistical  data  reflecting  the  core  allocation 
during  a RASP  execution.  The  breakdown  of  the  statistics 
details  the  amount  of  core  used  for  user  subroutines  and 
tables,  queries,  stash  area,  I/O  buffers,  and  access 
methods.  It  also  includes  the  number  of  BLDL  entries 
allocated  and  used  and  the  number  of  entries  required  for 
all  subroutines,  tables,  and  the  query  to  reside  in  core. 
The  amount  of  core  required  for  each  subroutine  and  table 
and  the  query  to  reside  in  core  will  also  be  output.  If 
subroutines  and  tables  are  rolled,  this  information  will  be 
output  with  the  causes  for  the  rolling  and  the  number  of 
times  it  occurred. 

The  user  is  able  to  enter  override  parameters  for  the 
number  of  BLDL  entries  to  allocate,  and  the  size  of  the 
stash  area  to  be  used  for  storage  of  data  records. 

The  statistics  gathering  is  initiated  through  parameters 
entered  in  the  PARM  field  of  the  EXEC  card.  The  parameters 
and  their  functions  are  as  follows: 

ROS  - Gather  and  output  Run  Optimization 

Statistics. 

NOROS  - Omit  statistics.  If  no  other  parameter 

is  used,  this  parameter  should  be 
omitted,  as  it  is  the  default. 

The  parameters  the  user  may  supply  to  tailor  core 
allocation  are  as  follows: 

TCP=nK  - The  number  (n)  of  1000  (K)  bytes  to  allo- 

cate to  stash  area. 
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TCB  = n 


The  number  (n)  of  BLDL  entries  to  allo- 
cate. 


TCS  - Invalid  in  RASP. 

with  the  above  override  parameters,  run  optimization 
statistics  will  be  gathered  and  output  unless  NOROS  is  also 
entered. 

For  a more  detailed  description  of  the  capability,  see 
Volume  I,  Introduction  to  File  Concepts. 

4.6  Operator  Messages 

The  RASP  component  is  designed  to  operate  with  minimum 
operator  intervention.  All  operator-system  communication  is 
performed  under  control  of  the  Operating  System. 
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Section  5 


JOB  MANAGEMENT 


CSH  UN  15-74,  Volume  VIII,  Job  Preparation  Manual, 
illustrates  the  use  oi  the  cataloged  procedure  XRASP.  It 
■ay  be  used  for  single  file  retrievals  or  for  merged-file 
retrievals.  The  "symbolic  parameter"  capability  provided  by 
the  OS/3 60  is  utilized  by  the  procedure.  This  provides  the 
user  with  a simple  method  of  designating  the  data  sets  to  be 
used  for  a given  run. 

A standard  set  of  defaults  have  been  specified  for  the 
symbolic  parameters.  Assuaing  that  all  data  file  and 
library  data  sets  have  been  cataloged  for  the  typical  run, 
only  the  data  file  and  library  require  naaing  at  run  time. 
Default  parameters,  a listing  of  the  XRASP  procedure  and  DP 
name  usage  are  provided  in  the  Job  Preparation  Manual. 

The  procedure  has  been  defined  to  suffix  the  names  of 
sequential  data  files  with  "S,"  Index  Data  Sets  with  "X," 
and  user  libraries  with  ML.  " This  convention  is  standard 
for  all  components  in  NIPS  360  FES.  These  suffix  characters 
aust  be  taken  into  consideration  when  cataloging  the  data 
sets  and  when  using  them  at  execution  time. 


5.1  Checkpoint/Restart 

During  SAN  processing,  the  user  aay  invoke  the  OS/360 
checkpoint/restart  capability  to  record  timed  or  end-of- 
voluae  checkpoints.  If  checkpoints  are  needed  during  ISAM 
processing,  only  the  tiaed  option  is  valid.  The 
checkpoint/restart  capability  should  only  be  used  during 
long-running  jobs  using  the  execute  only  procedures.  (Note 
that  the  OS/360  step  restart  is  program  independent  and  is 
not  the  topic  of  this  discussion.)  A detailed  description 
of  the  OS/360  check/restart  capability  (which  is  utilized  in 
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NIPS)  is  available  to  the  interested  user  in  IBM  Systems 
Reference  Library,  Number  C28-6708.  A detailed  description 
on  how  to  use  checkpoint/re start  is  included  in  Volume  VIII, 
Job  Preparation  Manual. 
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Section  6 

OPERATOR  LIST  AND  SYSTEM  FLOW 

6.1  Consolidated  List  of  Operators 

The  following  list  of  operators  provides  a quick 
reference  for  the  analyst. 

a.  Run  Initializing 
FILE 

LIMIT 

b.  Library  Action 
ADD 

REPLACE 

DELETE 

c.  Retrieval  Initializing 
TITLE 

FILE 

LIMIT 

NO-GO 
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d.  Conditional  Statements 
KEYWORD 

LIMIT 

Ir 

PH  RTHER 

e.  Imperative  Statements 
SORT 

SFLECT 

f.  Comment 
NO^E 


' 

I 


I 


6.2  System  Flow 

RASP  has  three  sections:  the  Input  Processor  section, 
the  Retrieval  Proper  section,  and  the  Sort  section.  The 
flow  within  each  section  is  discussed  briefly  in  the 
following  paragraphs. 

The  Input  Processor  section  reads  the  input  stream.  It 
edits  each  statement  and  restructures  communication  records 
tor  the  rest  of  the  component.  It  extracts  the  required 
information  from  the  file  format  table,  resolves  all  field 
name  addresses  and  references,  and  places  those  data  values 
converted  by  conversion  subroutines  in  the  communication 
records.  It  also  applies  an  algorithm  to  restructure  the 
conditional  logic  into  a bit  pattern  which  can  be  more 
readily  interrogated  using  programmed  logic.  Finally,  it 
converts  the  retrieval  statements  into  macros  which  are 
assembled  and  link  edited  by  OS/360  to  produce  an  executable 
load  module.  The  resulting  executable  retrieval  is  stored 
on  the  Permanent  or  Temporary  Retrieval  Library. 


128 


RETRIEVAL  AND  SORT  PROCESSOR  (RASP) 


The  Retrieval  Proper  section  reads  the  communication 
records,  calls  and  execu*es  the  code  stored  on  the  Permanent 
or  Temporary  Retrieval  Library.  It  checks  to  see  if  the 
retrieval,  the  required  subroutines,  and  the  first  data  set 
to  be  retrieved  against  are  available.  If  either  of  the 
first  two  are  not  available,  an  advisory  message  is  issued, 
and  the  job  is  terminated.  If  the  data  set  is  not 
available,  the  operator  is  notified,  and  appropriate 
operator  action  must  be  taken. 

After  all  initialization  has  been  completed,  the  data 
base  logical  records  are  read  in  one  at  a time.  The  control 
field  is  tested  successively  against  the  criteria  for  the 
primary  limit,  if  any;  * he  secondary  limit,  if  any;  and  th“ 
references  to  the  fixed  set,  if  any.  If  the  record  fails  on 
any  of  these  criteria,  all  subsequent  logical  records  up  to 
the  next  fixed  set  (i.«.,  the  whole  logical  block)  are  by- 
passed. This  'early-fail'  feature  permits  more  efficient 
program  operation.  The  same  early-fail  technique  is  also 
applied  for  each  change  in  periodic  set. 

The  flow  sequence  continues  until  every  affected  set  has 
been  processed  against  the  logic  of  all  retrievals.  If, 
after  evaluation,  the  current  logical  block  qualifies 
, against  the  conditions  of  at  least  one  retrieval,  the 

logical  block  is  written  on  the  QDP.  The  POAER  entries 
containing  sort  keys  and  QDF  pointers  are  generated  as 
required  by  the  Sort  and  Select  statements  and  processing 
resumes  as  before. 

The  Sort  section  invokes  the  OS/369  Sort/Nerge  program 
to  sort  the  records  in  the  QRT. 
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RASP  SAMPLE  RON 


Proulea  1 

Execute  retrievals  TSF0312,  TSF0301,  and  TSF0902. 

Problem  2 

Retrieve  all  Air  Force  and  Navy  records  for  processing 
by  PIT  TP0311R.  Produce  additional  answer  records  with  the 
following  conditions  inposed: 

Navy  units  located  in  Verdun 

Delete  all  periodic  sets  except  Periodic  Set  1 
Sort  by  Activity  and  Unit  Level 
Publish  under  RIT  TF0313R. 


Problem  3 

Retrieve  all  Air  Force  units  in  Hetz,  Toulon,  and  Cannes 
with  tactical  air  aissiles  and  assigned  2999  or  3999  series 
plan . 

■. 

! ~ Retain  only  the  fixed  set 

Preserve  file  order 

’ Publish  under  RIT  SF|ni4R 

i ~ Produce  additional  records  for  processing  by  a 

separate  RIT  SFJHISR  that  also  has  a series 
59XX  plan  assigned  and  sort  this  information  in 
service-unit  naae  sequence;  restrict  to  flagged 
subsets. 


. RETRIEVAL  AND  SORT  PROCESSOR  (RASP) 
k 

SOLUTION 


//HASP360  JOB  (standard  parameters) 

//  EXEC  XP  ASP,ISAM=''’EST36p',LIB=TFST36|»,LIBDISP=OLD 

//RASP. S YSI  N DD  * 

FILE  TEST360. 

NOTE  - THE  SOLUTION  TO  PROBLEM  1 FOLLOWS. 

EXECUTE  TSF0312,  TSF0301,  TSF0r9JT2. 

TITLE  TSF0315/1,  TF0313P  ADD. 

NOTE  — THE  FOLLOWING  IS  THE  BASIC  LOGIC  FOP  PROBLEM  2. 

LIMIT  IF  UIC  BT  J0001/N003I?. 

IF  SERV  EC  NAVY,  USAF. 

TF0311R  SORT  •*•. 

NOTE  - THE  FOLLOWING  DEPINES  ADDITIONAL  LOGIC 
CONDITIONS  IMPOSED  ON  PROBLEM  2. 


J 


FURTHER  IF  SEPV  EQ  NAVY  AND  LOC  EQ  VERDUN. 

TF0313R  SORT  ACTIV  §#  U NLVL . 

SELECT  MEMOD. 

TITLE  TSF0316/1,  SF031ttP,  ADD. 

NOTE  - THE  FOLLOWING  TS  THE  SOLUTION  FOR  PROBLEM  3. 
IF  SERV  EQ  USAF  AND  LOC  EQ  METZ, 

TOULON,  CANNES  AND  ME PSD  EQ  THS  AND 
PLAN  BT  2$  AND  3$. 

SF0314R  SORT  • • . 

SELECT  UNTYY. 

NOTE  - THE  FOLLOWING  IMPOSES  ADDITIONAL  LOGIC 
CONDITIONS  ON  THE  IF  STATEMENT. 

FURTHER  PLAN  EQ  50$. 

SF0T315R  SORT  SERV  IOCHDS#,  tJNANE. 

SELECT  PLEAC/F. 

/* 

•NOVEMBER,  1972'. 


Figure  1.  RASP  Saaple  Run 
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CCTC  CODES  COPIES 

Cl  24  (Reference  and  Record) 3 

Cl  24  (Record  Copy)  Stock 6 

C2  40  . 20 

C31  5 1 

C341  (Maintenance  Contractor) 10 

C34 1 (Stock) 70 


EXTERNAL 

Director  of  Administrative  Services,  Office  of 
the  Joint  chiefs  of  Staff 

Attn:  Chief,  Personnel  Division,  Room  1A724,  The 
Pentagon  Washington,  D.C.  20301 1 

Director  for  Personnel,  J-1 , Office  of  the  Joint 
Chiefs  of  Staff,  Attn:  Chief,  Data  Service  Office, 
Room  1B738C,  The  Pentagon,  Washington,  D.C. 

20301 1 

Director  for  Operations,  J-3,  Office  of  the  Joint 
Chiefs  of  Staff,  Attn:  P 6 AD,  Room  2B870,  The 
Pentagon,  Washington,  D.C.  20301 1 

Director  for  Operations,  J-3,  Office  of  the  Joint 
Chiefs  of  Staff,  Attn:  Deputy  Director  for 
Operations  (Reconna.isance  and  Electronic  Warfare) 


Room  2D921 , The  Pentagon,  Washington,  D.C. 

20301 1 

Director  for  Logistics,  J-4,  Office  of  the 
Joint  Chiefs  of  Staff,  Room  2E828,  The  Pentagon, 
Washington,  D.C.  20301 1 

Chief,  Studies  Analysis  and  Gaming  Agency,  Attn: 
Chief,  Force  Analysis  Branch,  Room  1D928A,  The 
Pentagon,  Washington,  D.C.  20301 1 

Automatic  Data  Processing,  Liaison  Office 
National  Military  Command  Center,  Room  2D901A, 

The  Pentagon,  Washington,  D.C.  20301 1 


Automatic  Data  Processing,  Liaison  Office 
National  Military  Command  Center,  Room  2D901A, 

The  Pentagon,  Washington,  D.C.  20301 1 


EXTERNAL 


CO]’  i 


F 


I 


I 


Automatic  Data  Processing  Division 

Supreme  Headquarters  A] lied  Powers,  Europe 

Attn:  SA  G P Branch,  APO  New  York  09 0 '313 1 

Director,  Defense  Communications  Ayency,  Office 
Of  MEECN  System  Engineering,  Attn:  Code  9G0T, 
Washington,  D.C.  20301 1 

Director,  Defense  Communications  Engineering 

Center,  Hybrid  Simulation  Facility,  18G0 

Wiehl  Avenue,-  Reston,  VA  220  70 1 

Director,  Defense  Intelligence  Agency 
Attn:  DS  - 5C2 

Washington,  D.C.  20301 5 

Commander-in-Chief,  Pacific,  Attn:  J6331 , 

FPO  San  Francisco,  9 0610 1 

Conunander-in-Chief , US  Army  Europe  and 

Seventh  Army  7iTTN : OPS  APO  New  York  09403 1 

Commanding  General,  US  Army  Forces  Command, 

Attn:  Data  Support  Division,  Building  206, 

Fort  McPherson,  GA  30303 1 

Commander,  Fleet  Intelligence  Center,  Europe, 

Box  18,  Naval  Air  Station,  Jacksonville, 

Florida  32212 1 

Commanding  Officer,  Naval  Air  Engineering 
Center,  Ground  Support  Equipment  Department, 

SE  314,  Building  76-1,  Philadelphia,  PA  19112  1 

Commanding  Officer,  Naval  Security  Group 
Command,  3801  Nebraska  Avenue,  N.W.  Attn:  GP22, 
Washington,  D.C.  20390 1 


Commanding  Officer,  Navy  Ships  Parts  Coni  rol 
Center,  Attn:  Code  712,  Meehan  j.csburg , PA  170G5  1 


Headquarters,  US  Marine  Corps,  Attn:  System 
Design  and  Programming  Section  (MC-JSM1)  7) 
Washington,  D.C.  20380 
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Commanding  Officer,  US  Army  Forces  Command 

Intelligence  Center,  Attn:  AFIC-PD,  Fox't 

Bragg,  NC  28307 1 

Commander,  US  Army  Foreign  Science  and 
Technology  Center,  Attn:  AMXSJ-CS,  220 
Seventh  Street  NE,  Charlottsville , VA  2221 2--  1 

Commanding  Officer,  US  Army  Security  Agency, 
Command  Data  Systems  Activity  (CDSA)  Arlington 
Hal  .1  Station,  Arlington,  VA  22212 1 

Commanding  Officer,  US  Army  Security  Agency 
Field  Station  - Augsburg,  Attn:  IAEADP , 

APO  Nev;  York  09  45  8 1 

Command  r,  Fleet  Intelligence  Center,  Atlantic, 
Attn:  DPS,  Norfolk,  VA  23  51  1 1 

Commander,  Fleet  Intelligence  Center,  Pacific, 

Box  500,  Pearl  Harbor,  HI  9G860 1 
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